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ABSTRACT 


This  thesis  critically  analyzes  the  Sharable  Content  Object  Reference  Model 
(SCORM)  within  higher  education  and  examines  SCORM’s  limitations  within  a  realistic 
application  environment  versus  within  a  theoretical/conceptual  platform.  The  thesis  also 
examines  environments  better  suited  for  implementation  of  SCORM  technology. 

In  addressing  the  research  questions,  it  was  discovered  that  from  the  current 
standards  set  forth  by  Advanced  Distributed  Learning  (ADL),  SCORM  is  not  well  suited 
for  higher  education.  SCORM  technology  will  prove  of  greater  utility  within  the  Navy 
Training  environment  than  in  higher  education.  In  their  effort  to  share  information, 
higher  education  institutions  would  benefit  more  from  a  Content  Management  System  in 
conjunction  with  a  Learning  Management  System. 

Subsequent  chapters  addressed  the  limitations  of  SCORM,  provided  a 
comparison  of  the  applicability  of  SCORM  within  the  separate  domains  of  naval 
Education  and  Training,  and  provided  a  prototype  of  a  Content  Management  System  for 
institutions  of  higher  learning. 
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I.  THE  NEED  TO  MANAGE  CONTENT 

A.  INTRODUCTION 

This  thesis  will  critically  analyze  the  Sharable  Content  Object  Reference  Model 
(SCORM)  within  higher  education.  It  will  offer  SCORM’s  limitations  within  a  realistic 
application  environment  versus  a  theoretical  /  conceptual  platform.  Lastly,  the  thesis  will 
offer  recommendations  on  the  environment  that  will  receive  the  greatest  benefit  from  the 
implementation  of  this  technology.  This  chapter  introduces  SCORM  and  its  parent 
initiative,  DoD-backed  Advanced  Distributed  Learning  (ADL),  as  well  as  the  concepts 
that  will  be  discussed  throughout  this  thesis. 

B.  DISORGANIZED  INFORMATION 

Thousands  of  terabytes  of  information  are  housed  within  and  accessible  through 
the  Internet.  That  translates  into  millions  of  pages  of  data.  Within  the  last  decade,  almost 
every  sector  of  society  has  managed  to  digitize  information  and  make  it  available  for 
either  limited  or  unlimited  distribution.  This  aggregation  of  information  has  contributed 
to  mass  collections  without  any  true  design  for  organization  and  extraction. 

As  with  any  revolutionary  idea,  the  Internet  and  its  vast  repositories  of  data  and 
information  were  not  produced  or  designed  with  the  end  in  mind.  Rather,  it  grew  and 
morphed  into  something  unrecognizable.  All  of  the  technology  that  makes  the  Internet 
possible  serves  to  bring  content,  in  the  form  of  text,  images,  animation,  audio,  video,  and 
their  myriad  combinations,  to  the  intended  or  unintended  audience.  This  content  grew  and 
continues  to  proliferate  unchecked. 

It  is  not  until  recently  that  attention  has  been  redirected  to  the  issue  of  content 
architecture.  Institutions  such  as  government,  business,  and  academia  all  serve  as 
legitimate  and  authoritative  sources  of  content.  The  impetus  is  perhaps  the  same  for  all: 
cut  the  cost  of  education  and  training  while  maintaining  or  increasing  the  quality  of 
material.  It  should  not  be  a  surprise  that  these  parties  are  collaborating  in  a  joint  effort  to 
create  and  share  content  that  is: 

...accessible  from  multiple  remote  locations  through  the  use  of  meta-data 

and  packaging  standards;  adaptable  by  tailoring  instruction  to  the 
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individual  or  organizational  needs;  affordable  by  increasing  learning 
efficiency  and  productivity  while  reducing  time  and  costs;  durable  across 
revision  of  operating  systems  and  software;  interoperable  across  multiple 
tools  and  platforms,  and  reusable  through  the  design,  management,  and 
distribution  of  tools  and  learning  content  across  multiple  applications. 

(ADL  Overview,  2003) 

C.  ADVANCED  DISTRIBUTED  LEARNING  AND  SCORM 

The  Department  of  Defense,  along  with  the  White  House  Office  of  Science  and 
Technology  Policy,  launched  the  Advanced  Distributed  Learning  (ADL)  initiative  in 
1997.  ADL’s  goal  is  the  acceleration  of  large-scale  development  of  dynamic  and  cost- 
effective  learning  software  and  systems  to  stimulate  an  efficient  market  for  these  products 
to  meet  the  education  and  training  needs  of  the  military  and  the  nation's  workforce  (ADL 
Overview,  2003).  Key  to  this  plan  is  the  development  of  a  common  technical  framework 
for  computer  and  net-based  learning  that  will  foster  the  creation  of  reusable  learning 
content.  This  framework,  known  as  the  Sharable  Content  Object  Reference  Model 
(SCORM),  is  a  software  model  that  defines  the  interrelationship  of  course  components, 
data  models,  and  protocols  such  that  content  “objects”  are  sharable  across  systems  that 
conform  with  the  same  model. 

To  adopt  the  guidelines  and  specifications  outlined  in  the  SCORM,  there  must  be 
an  intermediary  process  that  allows  easing  into  the  change  demanded  of  the  serious 
content  providers,  such  as  professors  and  academicians.  Although  the  ADL  initiative  was 
introduced  in  1997,  it  has  yet  to  be  implemented  and  widely  accepted  by  all  three 
stakeholders,  the  academic,  commercial  and  government  sectors,  comprised  of  hundreds 
of  vendors,  universities  and  agencies,  who  play  a  role  in  SCORM  development  through 
three  “Co-Labs”.  Why  such  delays  to  implement  something  that  all  three  entities  want 
and  need?  The  sheer  transformative  effort  is  so  overwhelming  that  it  causes  temporary 
paralysis  within  the  minds  of  those  who  must  move  in  that  direction.  The  designers, 
architects,  and  engineers  of  ADL  and  SCORM  are  not  those  that  must  deploy  it.  The 
labor  must  be  performed  by  dedicated  content  creators  and  managers.  It  is  an  enormous 
undertaking  to  transform  content  from  its  aggregate  state  to  one  that  resembles  its  basic 
decomposed  building  blocks. 


2 


Of  the  concrete  aspects  of  SCORM,  content  creation  and  management  are  the 
most  pivotal.  Similar  to  the  vast  technologies  that  make  the  Internet  function,  SCORM 
serves  to  make  content  available.  Without  the  content,  the  underlying  infrastructure 
becomes  worthless.  The  ADL  Overview  outlines  functional  requirements  that  must  be 
present  in  order  to  take  full  advantage  of  the  collaborative  effort  that  such  an  endeavor 
inherently  provides.  The  major  functionalities  discussed  were  accessibility,  adaptability, 
affordability,  durability,  interoperability,  and  reusability  (ADL  Overview,  2003).  Any 
one  of  the  aforementioned  functionalities  is  fertile  ground  for  further  research  and 
development.  Similarly,  the  interdependence  of  the  many  facets  cannot  be  overstated. 

With  the  functional  requirements  stated  and  understood,  there  must  be  a  focal 
point  from  which  to  facilitate  dialogue  amongst  content  creators.  Of  the  three 
stakeholders,  academia  will  perhaps  have  the  most  difficult  task  of  transformation.  The 
authors  (professors)  must  see  value  in  the  transformation.  Most  professors  see  value  in 
their  teaching,  not  in  creating  content  (publishing  notwithstanding).  The  value  lies  in 
their  ability  to  impart  knowledge  and  wisdom  from  their  experiences  that  breathe  life  into 
the  abstract  and  theoretical. 

Content  creators  such  as  professors  may  not  be  interested  or  sufficiently  enticed  to 
embrace  learning  new  technology  such  as  new  authoring  tools.  Software  packages  such 
as  Outstart’s  Evolution  that  provide  content  creation  and  management  tools  better  serve 
the  needs  of  content  creators  within  a  training  environment.  These  same  tools  are  not  as 
suitable  for  academia.  The  political  climate  is  more  complicated  within  the  halls  of 
knowledge  when  one  analyzes  the  many  personalities  that  must  work  together  to  agree 
upon  the  delivery  of  content. 

D.  REUSABLE  LEARNING  AND  INEORMATION  OBJECTS 

At  the  core  of  the  SCORM  reside  Reusable  Learning  Objects  (RLO)  comprised  of 
various  types  of  Reusable  Information  Objects  (RIO).  Analysis  of  Sharable  Content 
Objects  (SCO)  can  be  likened  to  the  breakdown  of  matter  to  its  atomic  level,  where  the 
matter  is  the  Reusable  Learning  Object  (RLO)  and  RIOs  are  the  basic  building  blocks 
that  comprise  it.  It  can  be  argued  that  subatomic  components  may  also  serve  to  define  a 
SCO.  However,  such  a  degree  of  granularity  does  not  truly  serve  any  meaningful 
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purpose  because  it  removes  all  contexts  from  the  presentation.  It  would  be  similar  to  a 
sentence  lifted  out  of  an  entire  chapter.  It  may  be  able  to  stand  by  itself  but  lacks  true 
support  and  enforcement  by  other  pieces  of  information  surrounding  it. 

1.  Reusable  Learning  Objects 

Reusable  Learning  Objects  facilitate  content  sharing  by  allowing  only  one 
singular  learning  objective  to  be  present  at  any  one  time.  RLOs  must  contain  five 
elements:  overview,  pretest,  lesson,  summary,  and  quiz.  The  overview  section  is 
comprised  of  six  subsections:  introduction,  importance,  objective,  prerequisite,  scenario, 
and  outline.  The  pretest  contains  questions  relating  to  each  RIO.  The  lesson  is  made  up 
of  the  various  types  of  RIOs.  The  summary  offers  a  review  and  suggests  next  steps  as 
well  as  offers  additional  resources.  Lastly,  the  quiz  mimics  the  pretest  by  addressing  and 
evaluating  key  points  that  should  have  been  understood  or  mastered. 

2.  Reusable  Information  Objects 

The  Naval  Education  and  Training  Center  defines  a  RIO  as  a  “small  ‘chunk’  of 
subject  matter  that  is  based  on  one  single  supporting  learning  objective”  (NET-PDTC, 
2003).  A  RIO  concentrates  on  a  particular  subject.  Moreover,  the  design  and 
construction  of  the  material  should  allow  it  to  be  self-supporting.  Content  specificity  and 
the  desired  learning  objective  define  the  type  of  RIO  employed  to  convey  the  ideas 
accurately.  Meeting  the  above-mentioned  criterion  facilitates  the  RIO’s  reuse. 

The  RLO  and  its  context  will  define  the  most  appropriate  type  of  RIO.  The 
diversity  of  RIOs  can  be  traced  to  the  variety  of  information  types  that  currently  exist  in 
academia  and  training  institutions.  The  current  system  classifies  RIOs  into  five  distinct 
categories:  concept,  fact,  procedure,  process,  and  principle.  Again,  the  content  will 
define  the  most  appropriate  type  to  be  used.  To  understand  the  differences,  a  basic 
definition  of  each  type  of  RIO  is  in  order  at  this  point. 

•  A  concept  is  a  “mental  representation  or  prototype  of  objects  or  ideas  for 
which  multiple  specific  examples  exist.” 

•  A  fact  is  “something  with  real  and  demonstrable  existence  in  which  every 
instance  is  identical  to  the  other.” 

•  A  procedure  RIO  is  one  with  a  “sequential  set  of  steps”  in  which  the 
completion  of  the  “steps  result  in  accomplishment  of  a  task.”  The 
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directions  for  a  procedure  are  to  be  “followed  by  one  individual”  and  are 
“done  more  or  less  the  same  way  each  time.” 

•  A  process  RIO  is  a  “series  of  actions,  changes,  or  functions  that  achieve  an 
end  result”  in  which  it  “tells  how  something  works  or  how  something  is 
best  done.”  A  process  “may  involve  many  people  or  an  entire 
organization”  but  definitely  requires  more  than  one  individual’s 
participation. 

•  A  principle  RIO  is  a  “task  for  which  there  are  no  specific  steps  but 
requires  that  application  of  guidelines,  rules,  laws,  or  policies  to  a  situation 
which  is  subject  to  change.”  (NET-PDTC,  2003) 

The  breakdown  of  content  does  not  stop  at  RIOs,  but  continues  further  within  it. 
RIOs  are  comprised  of  five  distinct  elements — three  obligatory  and  two  optional.  The 
three  required  elements  are  content  items,  practice  items,  and  assessment  items,  including 
pretests  and  quizzes.  The  two  optional  items  are  interaction  and  review  items  (NET- 
PDTC,  2003). 

E.  EDUCATION  VERSUS  TRAINING  ENVIRONMENTS 

The  level  of  specificity  that  a  RIO  demands  is  not  useful  in  an  educational 
environment.  A  RIO’s  true  value  can  be  best  seen  in  a  training  environment  where  finer 
and  finer  granularity  provides  greater  proficiency  in  understanding  of  equipment  or 
needed  skills.  Education,  on  the  other  hand,  serves  to  familiarize  and  strives  to  produce  a 
certain  level  of  intimacy  with  concepts  and  theories.  Educational  material  all  too  often 
encompasses  many  different  types  of  RIOs  in  one  topic.  To  attempt  to  dissect  and  extract 
each  type  of  RIO  out  of  a  course  would  leave  the  RIO  bereft  of  any  true  meaning  or 
context.  Moreover,  the  demand  that  it  places  upon  the  professor  to  attempt  to  divide  and 
subdivide  content  becomes  too  laborious  to  see  any  real  advantage. 

For  example,  the  intent  of  a  topic  such  as  a  Local  Area  Network  (LAN)  within  a 
textbook  dealing  with  computer  networks  is  somewhat  limited  in  its  scope.  The 
limitation  is  that  it  must  cover  all  facets  of  the  network.  It  cannot  and  will  not  enable  a 
student  that  completes  to  course  to  erect  a  network  and  administer  it.  Functions  such  as 
operating  and  administering  proprietary  hardware,  software,  routers,  switches,  and 
security  protocols  all  require  specialized  training  to  address  expertly  the  many  problems 
and  issues  that  arise  in  each  field.  The  scope  within  academia  cannot  be  as  ambitious  as 
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to  attempt  to  offer  proficieney  in  eaeh  area.  Such  a  level  of  familiarity  and  intimacy  can 
only  be  gained  through  technical  training. 

In  the  training  environment,  there  is  a  much  easier  consensus  gained  in  how  to 
best  familiarize  trainees  and  later  test  their  proficiency  with  certain  skill  sets.  Testing 
within  an  educational  environment  is  often  subjective,  taking  the  forms  of  projects  and 
papers  that  evaluate  a  student’s  understanding  of  a  certain  subject  matter.  In  a  training 
context,  evaluation  can  be  quite  objective  in  that  the  skill  can  be  demonstrated  and 
witnessed.  Its  evaluation  is  quite  binary:  a  trainee  is  either  capable  of  performing  the  task 
or  is  not. 

F.  ACADEMIC  REUSABLE  OBJECTS  CONTENT  MANAGEMENT 

SYSTEM 

This  concept  prototype  offers  an  education-specific  template  for  RIO  and  RLO 
within  academia.  It  does  so  without  the  demand  for  extra-fine  granularity  in  subsections. 
One  need  only  refer  to  a  book  to  see  that  chapters,  sections,  and  subsections  are 
intentionally  devised  in  a  manner  to  allow  introduction  and  familiarity  with  topics.  User 
manuals,  on  the  other  hand,  focus  on  systematic  instructions  on  how  to  accomplish  a  task 
or  acquire  a  skill.  In  an  academic  environment,  a  student  should  learn  critical  thinking 
skills  and  an  understanding  of  the  architecture  and  design  of  a  technology.  To  facilitate 
knowledge  in  academia,  it  is  imperative  to  devise  a  plan  that  affords  ease  of  information 
sharing. 

A  Content  Management  System  (CMS)  offers  the  ability  to  share  content.  A 
CMS  such  as  Blackboard  offers  considerable  functionality.  Unfortunately,  it  does  not 
currently  offer  dynamic  content  management.  More  often  than  not,  it  is  used  as  a  static 
repository  for  disparate  content.  Currently,  content  ranging  from  simple  text  to  graphics, 
spreadsheets,  animation,  movies,  and  much  more  may  be  found  within  Blackboard.  The 
content  is  inserted  by  authorized  users  such  as  professors,  administrators,  and  educational 
technicians.  The  modification  and  deletion  of  such  content  is  also  the  responsibility  of 
the  authors  or  technicians  at  the  behest  of  the  authors  /  professors.  The  content  is  stored 
without  any  real  means  of  categorization.  There  are  such  compartments  as  course 
numbers  and  titles  under  which  content  may  be  placed.  However,  how  does  a  professor 

or  a  student  find  the  material  once  it  is  uploaded  into  the  CMS?  Only  by  manually 

6 


searching  through  all  of  the  content  can  people  find  that  for  which  they  are  searching.  A 
dynamic  content  management  system  not  only  allows  content  insertion,  modification,  and 
deletion,  but  also  content  retrieval.  Once  content  has  been  organized  into  atomic  levels, 
it  can  later  be  easily  imported  into  repositories  such  as  Evolution  and  Blackboard.  This 
thesis  serves  to  provide  a  concept  prototype  of  how  such  a  process  should  and  can  work. 

G.  RESEARCH  QUESTIONS 

•  From  the  current  standards  set  forth  by  the  Advanced  Distributed  Learning 
(ADL)  office,  is  SCORM  the  most  suitable  model  for  higher  education? 

•  Will  SCORM  technology  prove  of  greater  utility  within  the  Navy 
Education  or  Training  environment? 

•  In  their  effort  to  share  information,  would  higher  education  institutions 
benefit  more  from  a  Content  Management  System  rather  than  a  Learning 
Management  System? 

H.  SUMMARY 

The  following  chapters  will  address  the  limitations  of  SCORM,  provide  a 
comparison  of  the  applicability  of  SCORM  within  Navy  Education  and  Training  as 
separate  entities,  and  provide  a  concept  prototype  of  a  Content  Management  System  for 
institutions  of  higher  learning. 
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II.  ADVANCED  DISTRIBUTED  LEARNING 


A.  INTRODUCTION 

A  thorough  comprehension  of  the  genesis  of  the  Sharable  Content  Object 
Reference  Model  (SCORM)  depends  upon  a  better  understanding  of  its  parent  initiative. 
In  1999,  three  years  after  introducing  the  Advanced  Distributed  Learning  (ADL) 
initiative,  Congress  instructed  the  Department  of  Defense  (DoD)  to  pay  greater  attention 
to  the  utilization  of  technology  in  its  deployment  of  education  and  training  materials. 
The  original  concept  called  for  tailored  and  individualized  education  and  training. 
Individualized  training,  in  its  purest  sense,  can  never  be  a  reality.  An  alternative  is 
material  tailored  for  individual  communities  that  share  a  need  for  common  education  and 
training. 

B.  HISTORY 

Advanced  Distributed  Learning  does  not  call  for  bachelor’s  or  master’s  degree- 
level  “anytime-anywhere”  education.  Rather,  it  calls  for  individualized  learning  for 
soldiers  and  sailors.  Perceptions  of  a  lack  of  training  or  readiness  among  Reserve 
Component  (RC)  forces  during  the  Persian  Gulf  War  of  1991  prompted  the  ADL 
initiative  in  1996.  General  Accounting  Office  (GAO)  studies  and  testimony  from 
military  sources  added  to  the  belief  that  RC  units  required  additional  access  to  education 
and  training  opportunities  to  achieve  a  greater  degree  of  readiness  than  was  judged 
available  during  Operation  Desert  Storm  (W.  Cohen,  1999). 

Military  schools  cost  the  DoD  more  than  $17  billion  per  year  (GAO-03-393, 
2003).  As  part  of  their  expenditures  on  training  for  military  personnel,  the  DoD  has 
invested  in  several  different  learning  management  systems  (LMSs),  which  are  nearly 
identical  yet  incompatible,  and  there  are  considerable  benefits  in  developing  ways  to 
share  courses  among  them.  Over  3  million  military  and  civilians  attend  30,000  courses, 
which  last  from  days  to  months.  It  is  imperative  to  cut  costs  while  maintaining  delivery 
of  education  and  training  to  the  millions  that  depend  upon  it  to  fight  wars  or  support  the 
soldiers  and  sailors  that  are  actively  engaged  in  battle. 
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C.  LEGISLATION 

The  Secretary  of  Defense  first  introduced  ADL  as  an  initiative  in  1996  during  the 
Quadrennial  Defense  Review  (QDR).  Section  378  of  Public  Law  105-261,  the  Strom 
Thurmond  National  Defense  Authorization  Act  for  Fiscal  Year  1999,  obligated  the 
Secretary  of  Defense  to  design  and  implement  measures  that  expanded  upon  distance 
learning  measures.  Though  Section  378  discusses  collaborative  efforts  with  industry  and 
other  government  agencies,  it  specifically  focuses  on  the  DoD  (GAO-03-393,  2003). 
Executive  Order  13111,  Using  Technology  to  Improve  Training  Opportunities  for 
Federal  Government  Employees,  established  12  January  1999,  orders  the  Department  of 
Defense  to  lead  the  way  in  shaping  the  future  standards  of  learning  technology.  It  not 
only  serves  to  address  the  needs  of  soldiers  and  sailors  today,  but  also  charges  the  DoD 
with  forecasting  future  training  needs. 

D.  NEW  AND  IMPROVED  ADL 

Advanced  Distributed  Learning  is  instruction  that  does  not  require  an  instructor’s 
presence,  can  use  more  than  one  media  (text,  images,  audio,  video,  etc.),  and  emphasizes 
the  use  of  reusable  content,  networks,  and  learning  management  systems.  The  DoD 
demanded  that  the  technology  enable  a  more  Teamer-centric’  system  to  expand  and 
complement  legacy  systems  (GAO-03-393,  2003).  This  system  should  move  away  from 
a  “factory  model”  such  as  large  education  and  training  institutions  to  a  network-centric 
“information-age  model”  which  incorporates  a  shift  from  “right-time,  right-place”  to 
“anytime-any where”  learning.  This  transition  became  necessary  in  line  with  the  DoD’s 
focus  on  multi-Service,  joint,  interagency,  and  coalition  war  fighting.  It  became  obvious 
that  all  future  wars  would  be  fought  as  a  collective,  and  no  longer  would  any  single 
Service  branch  be  able  to  move  and  act  independently  of  the  others.  To  embody  the  very 
spirit  of  a  network-centric  war-fighting  machine,  the  Armed  Forces  needed  to  educate 
and  train  its  service  members  in  the  same  manner  in  which  it  fought  its  wars  -  as  one 
cohesive  unit.  By  learning  as  one,  they  could  light  as  one.  Learning  as  one  required 
standardized  instructional  material  shareable  and  understandable  among  all  services. 
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E.  THE  “-ILITIES” 

After  conceiving  and  articulating  the  basic  idea  of  standardization,  ADL  defined 
parameters  to  gauge  instructional  materials  suitable  for  the  new  teaching  and  learning 
environment: 

•Accessibility  -  Ability  to  access  instruction  from  one  remote  location  and  deliver  it 
to  many  other  locations,  and  training  and  technology  reach-back  for  deployed 
soldiers. 

•Interoperability  -  Ability  to  use  instructional  components  developed  at  one  location 
in  another  location,  or  by  more  than  one  service  -  in  other  words,  between  all 
advanced  distributed  learning  and  instructional  platforms,  media,  and  tools. 
•Durability  -  Ability  to  continue  using  instructional  components  without  redesign  or 
recoding  when  base  technology  changes. 

•Reusability  -  Ability  to  design  instructional  components  for  incorporation  into 
multiple  applications. 

•Affordability  -  Ability  to  reduce  instruction  time,  number  of  students  per  course  at  a 
resident  schoolhouse  and  education  infrastructure  cost.  Moreover,  provide 
significant  increases  in  learning  and  readiness  per  net  increment  in  time  or  cost. 
(ADL  Overview,  2003) 

F.  ELEMENTS  FOR  SUCCESS 

For  the  ADL  initiative  to  survive  and  flourish  into  its  envisioned  state,  some 
common  elements  are  necessary: 

•  Common  industry  standards  and  interoperable  tools  and  content:  The  DoD 
must  work  with  academia  and  industry  to  define  standards  by  which  to 
encourage  interoperability  and  compatibility  without  sacrificing  quality. 

•  Robust  and  dynamic  network  infrastructure  for  distribution:  The  network  in 
which  the  data  is  stored  and  transmitted  must  be  Joint  Technical  Architecture 
(JTA)-compliant  to  allow  building  upon  a  common  infrastructure. 

•  Supporting  resources:  Design  current  material  to  allow  ease  in  sharing. 

•  Cultural  change  at  all  levels  of  command,  recognizing  that  learning  is  an  official 
requirement  of  the  duty  day:  Change  the  perception  that  learning  which 
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enhances  the  readiness  of  the  Department  personnel  is  an  additional  or  a 
personal-time  responsibility  for  DoD  employees. 

Of  all  the  necessary  factors,  the  last  element,  requiring  cultural  change,  will  be  the 
most  difficult.  The  cultural  differences  amongst  the  different  branches  notwithstanding, 
far  too  many  see  education  as  a  luxury  and  not  a  necessity.  Training,  on  the  other  hand, 
is  mandatory  and  enjoys  a  unique  priority  within  the  military.  If  service  members  desire 
to  obtain  a  baccalaureate  or  master’s  degree,  they  must  do  so  on  their  own.  This  is  not  to 
say  that  the  Services  do  not  have  opportunities  for  higher  education  -  they  most  certainly 
do.  The  vast  majority  who  do  not  know  about  such  programs,  or  do  not  apply,  or  do  not 
meet  eligibility  requirements,  must  pursue  education  on  their  own  time  and  occasionally 
with  their  own  funding.  To  change  the  culture  and  make  education  as  mandatory  as 
training  will  take  even  greater  effort  and  money  to  implement. 

G.  CHALLENGES  AND  OBSTACLES 

The  very  elements  that  would  bring  ADL  to  fruition  are  the  same  that  inhibit  its 
complete  realization.  Nevertheless,  the  problem  is  not  merely  with  ADL,  but  the 
overriding  mentality  of  the  military  and  that  of  the  Department  of  Defense.  Financial, 
technological,  cultural,  and  policy  obstacles  stand  in  ADL’s  way  as  they  have  in  many 
other  endeavors.  Financially,  projections  place  the  program  approximately  $600  million 
over  budget  by  2007.  Technologically,  the  development,  fielding  of,  and  access  to 
military  skills-related  content  is  more  difficult  and  costly  than  anticipated.  Bandwidth 
issues  and  unresolved  network  security  concerns  stifle  utility  (GAO-03-393,  2003). 

Culturally,  it  is  difficult  for  senior  leadership  to  make  the  change  from  traditional 
school  settings  to  virtual  classrooms  as  the  preferred  method  of  teaching  and  learning. 
Moreover,  some  leaders  in  charge  of  traditional  schools  are  reluctant  to  close  classes  that 
directly  affect  their  overall  financial  well-being,  as  budgetary  allotment  is  usually 
contingent  upon  the  number  of  students  physically  in  attendance  (Granado,  2003).  It  may 
not  be  obvious  that  there  still  exists  a  vast  majority  of  older  military  and  civilians  within 
the  DoD  who  have  not  yet  fully  embraced  computer  technology  and  thus  have  limited 
literacy  in  the  arena.  Lastly,  there  is  currently  no  policy  that  clearly  outlines  ADL’s  use 
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in  lieu  of,  or  in  conjunction  with,  other  military  services’  training  regulations  (GAO-03- 
393,  2003). 

1 .  Army 

The  Army  points  to  cultural,  technological,  regulatory,  and  financial  obstacles  as 
the  primary  challenges  with  ADL  implementation.  Factors  such  as  computer  literacy, 
users’  ages,  schoolhouse  reluctance  to  change,  and  lack  of  senior  leadership  support 
contribute  to  the  cultural  obstacle.  Technologically,  in  addition  to  contracting 
difficulties,  courseware  is  developed  and  fielded  at  a  slower  pace  than  expected.  Good 
military  occupational  skill-related  content  is  important  to  program  success,  but  there  is 
little  available  because  it  is  more  complicated  to  develop  than  once  anticipated. 
Regulations  have  been  slow  to  change  in  its  incorporation  of  ADL.  Lastly,  funding  does 
not  facilitate  meeting  requirements.  (GAO-03-393,  2003) 

2 .  Navy 

The  challenges  that  have  befallen  the  Navy  are  concentrated  within  the  arenas  of 
technology  and  finance.  Their  technological  adversities  relate  closely  to  the  slow 
progress  in  course  conversion  and  LMS  implementation.  Moreover,  there  are  bandwidth 
limitations  for  deployed  units  in  addition  to  upgrade  limitations  in  small  ship 
communications  infrastructure.  Financially,  there  is  limited  funding  for  course 
development  as  well  as  hardware  in  the  classrooms  to  run  content  since  NMCI  hardware 
is  inadequate  for  executing  all  web  based  training  course  content.  Lastly,  the  anticipated 
return  on  investment  (ROl)  savings  are  notably  less  than  anticipated  life  cycle  costs 
because  of  the  significant  up-ffont  costs  that  are  required  to  achieve  life-cycle  costs. 
(GAO-03-393,  2003) 

3 .  Marine  Corps 

The  Marines’  challenges  are  cultural,  technological,  and  financial.  Limited 
experience  with  distance  learning,  lack  of  incentives  for  pursuing  distance  learning  as 
well  as  reluctance  from  schoolhouses  all  compound  the  issue  of  culture.  In  the  past, 
technologically,  the  Marines’  network  firewalls  made  access  quite  complicated  if  not 
impossible.  Now,  as  part  of  the  NMCI,  they  suffer  from  the  same  maladies  as  the  Navy 
with  regards  to  technology.  Moreover,  course  conversion  processes  require  greater 


13 


investment  of  time  than  anticipated.  Financially,  the  program  requires  an  enormous  up¬ 
front  cost  to  realize  long-term  ROI.  (GAO-03-393,  2003) 

4 .  Air  Force 

The  Air  Force  faces  challenges  similar  to  those  of  the  Marine  Corps.  Cultural 
change  is  omnipresent.  Limitations  in  bandwidth,  slow  course  conversion,  and  lack  of 
standardized  “just-in-time”  ADL  applications  all  add  to  the  technological  obstacles  for 
the  Air  Force.  Lastly,  funding  has  not  kept  pace  with  ADL’s  goals  and  objectives. 
(GAO-03-393,  2003) 

H.  CONCLUSION 

DoD’s  original  design  for  ADL  did  not  envision  a  complete  overhaul  of  the 
education  and  training  model.  Its  desire  was  to  enable  the  widest  dissemination  and 
sharing  of  the  greatest  amount  of  information  and  learning  as  practicable.  In  this  effort, 
the  quantity  and  quality  of  the  education  and  training  materials  were  not  to  suffer  at  the 
hands  of  technology  or  the  need  for  wider  distribution.  Along  the  way,  ADL  has  been 
met  with  technological,  cultural,  financial  and  policy/regulatory  difficulties.  Having  this 
understanding  of  the  vision  behind  ADL  will  allow  a  deeper  understanding  of  the 
military’s  expectations  regarding  education  and  training  in  the  next  decade.  Moreover, 
this  chapter  suggests  the  military’s  perspective  on  some  of  the  differences  between 
education  and  training  discussed  later  in  this  thesis. 
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III.  LIMITATIONS  OF  SCORM 


A.  INTRODUCTION 

The  Sharable  Content  Object  Reference  Model  (SCORM)  was  one  answer  to  the 
Advanced  Distributed  Learning’s  (ADL)  call  for  standardization.  It  has  many  limitations 
in  need  of  remedy.  One  limitation,  experts  argue,  is  that  SCORM’s  cookie-cutter 
approach  does  not  furnish  a  template  applicable  to  every  organization  that  produces 
educational  material. 

B.  THE  OBJECTS  OF  SCORM 

SCORM  outlines  a  set  of  standards  by  which  instructional  designers  may  produce 
sharable  learning  objects.  These  objects  are  the  smallest  pieces  of  instruction  dissectible 
from  the  whole.  Once  separated  into  pieces,  these  pieces  are  intended  to  fit  with  other 
pieces  from  other  wholes  to  make  up  an  entirely  new  entity.  While  SCORM  invites 
comparisons  to  Lego  building  blocks,  this  thesis  would  offer  that  it  behaves  more  like  a 
Frankenstein  creation:  combine  a  few  pieces  from  here  with  a  few  pieces  from  there,  and 
hope  that  it  lives  and  breathes.  Are  disparate  pieces  necessarily  as  accurate  and  effective 
as  the  whole  from  whence  it  came,  or  are  they  a  “hotchpotch  of  ill-matched  content 
where  the  learner  has  to  work  out  the  contextual  relations’’?  (Bohl,  2002) 

In  essence,  the  instructional  quality  and  worth  of  what  actually  runs  on  a 
SCORM-compliant  system  is  suspect.  Leading  figures  in  SCORM  development  echo 
these  sentiments,  among  them  Thor  Anderson,  director  of  developer  support  at  the 
Instructional  Management  System  (IMS)  Global  Learning  Consortium  and  technical 
editor  of  two  major  specifications  that  went  into  SCORM.  He  strongly  asserts  that  “the 
interoperability  that  existing  specifications  promote  is  just  plumbing,  and  the 
specifications  don’t  care  about  the  quality  of  what  goes  into  the  pipes.  It  could  be  spring 
water,  or  it  could  be  sewage.’’  (Welsch,  2002) 

The  “sewage”  to  which  Anderson  is  referring  is  a  byproduct  of  a  vague  concept 

called  a  Reusable  Learning  Object  (RLO).  Various  organizations  may  agree  upon  a 

definition  that  would  attempt  to  qualify  a  RLO  as  the  smallest  piece  of  instructional 

material.  David  Merrill,  an  instructional  systems  design  expert  at  the  Utah  State 
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University  of  Instructional  Technology,  points  out  an  obtuse  definition  that  further  attests 
to  the  vague  nature  of  the  beast:  “as  small  as  a  drop,  as  wide  as  the  ocean.”  In  other 
words,  if  everything  is  a  learning  object,  then  nothing  is  a  learning  object”  (Welsch, 
2002). 

C.  “SCORM  IS  NOT  FOR  EVERYONE” 

Dan  Rehak,  of  Carnegie  Mellon  University’s  Learning  Systems  Architecture  Lab, 
is  a  well-known  figure  in  the  ADL  and  SCORM  arenas,  and  thus  intimately  aware  of 
SCORM’s  limitations.  In  addition,  he  is  one  of  the  primary  architects  of  the  SCORM 
initiative.  The  Center  for  Education  Technology  Interoperability  Standards  (CETIS)  has 
understood  that  SCORM  may  not  be  applicable  or  appropriate  for  colleges  and 
universities.  Mr.  Rehak  said  that  “SCORM  is  essentially  about  a  single-learner,  self- 
paced  and  self-directed.  It  has  a  limited  pedagogical  model  unsuited  for  some 
environments.”  CETIS ’s  article  further  points  out  that  because  DoD  was  the  primary 
consumer,  SCORM’s  design  was  intended  for  their  specific  training  needs,  defined  as 
“training  for  specific  systems  and  situations  by  people  who  are  not  generally  in  full  time 
education.”  It  satisfactorily  fulfills  this  requirement;  however,  according  to  Rehak  and 
CETIS,  “SCORM  has  nothing  in  it  about  collaboration.  This  makes  it  inappropriate  for 
use  in  HE  (Higher  Education)  and  K-12.  The  lack  of  specificity  of  purpose  within  the 
educational  environment  makes  SCORM  a  less  likely  fit,  whereas  the  training 
environment  with  its  predefined  purposes  may  fully  benefit  from  such  an  initiative.” 
(Kraan,  2002) 

D.  SEARCHING  FOR  THE  FRUITS  OF  LABOR 

SCORM  is  one  solution  to  the  ADL  initiative.  However,  it  is  not  the  only 
solution.  SCORM  represents  a  considerable  investment  of  effort,  time,  and  money,  and 
its  proponents  feel  that  it  would  be  a  shame  not  to  see  the  fruits  of  their  labor.  Every 
organization  has  had  failed  projects.  It  is  more  important  to  learn  from  mistakes  and  not 
repeat  them,  rather  than  foolishly  pour  more  resources  into  a  product  or  a  specific 
direction  of  a  project  when  the  end  is  uncertain.  Human  fallibility  and  ego  prevent  most 
individuals  from  realizing  when  it  is  indeed  time  to  change  course  and  write  off  these 
sunk  costs.  Real  options  theory  teaches  managers  to  place  mechanisms  within  various 

stages  of  a  project  to  allow  managers  and  decision  makers  to  cease  and  desist  as  opposed 
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to  continue  on  a  fruitless  path  (Trigeorgis,  1996).  SCORM  is  undoubtedly  a  major  boon 
to  the  training  environment.  It  is  not  so  for  the  academic  arena.  ADL’s  eommunications 
officer,  Mark  Oehlert,  asserted  that  “The  point  is  that  we  would  be  hurting  our  own 
efforts  if  we  tried  to  move  SCORM  in  a  direction  that  would  cause  those  that  have 
invested  a  great  deal  to  implement  to  have  to  throw  everything  away  and  start 
over.”(Kraan,  2002) 

E.  LACK  OF  ARCHITECTURE 

Arehitecture,  as  a  eoneept  and  tool,  provides  for  the  intentional  design  and 
construction  of  an  object.  In  this  case,  SCORM  is  the  objeet  under  construction. 
However,  even  with  that  blueprint,  SCORM ’s  design  and  implementation  details  are 
unclear.  To  use  euphemisms  sueh  as  ‘evolve’  to  eonnote  indefinite  iterations  of  a  product 
do  not  inspire  confidence.  “The  extensive  eataloguing  by  means  of  metadata  is  an 
obstaele  for  developers  and  vendors  because  existing  eontent  has  to  be  provided  with 
metadata  to  be  SCORM  eompliant”  (Bohl,  2002).  An  argument  against  SCORM  in  an 
academic  environment  is  that  onee  material  is  converted  through  this  arduous  process 
into  SCORM-eompliant  formats,  instructors  and  instructional  technicians  should  expect 
that  it  will  be  durable  as  advertised.  Unfortunately,  even  ADL  is  not  quite  eertain  about 
the  future  of  the  newest  version  of  SCORM.  Oehlert  pointed  out  that  “what  SCORM  2.0 
will  end  up  being  is  not  exactly  clear  at  this  point.  The  plan  is  to  evolve  SCORM  to 
ensure  that  it  is  as  useful  as  possible  to  the  ADL  community”  (Bohl,  2002). 

F.  ENTERPRISE- WIDE  DISTRIBUTED  LEARNING  COMPLICATIONS 

The  goal  of  the  ADL  initiative  was  to  enable  the  sharing  of  eontent  across  all 
levels  and  organizations  within  the  federal  government  to  inelude  the  Department  of 
Defense.  It  was  DoD’s  desire  to  reduee  the  cost  of  the  disparate  and  overlapping  LMSs, 
but  it  eould  not  have  foreseen  the  complexity  in  actually  implementing  SCORM  across 
an  enterprise-wide  distributed  learning  system  (E.  Cohen,  2002).  DoD’s  composition  of 
varied  and  distinet  military  branches  and  equally  varied  and  distinet  information 
management  systems  would  suggest  that  it  is  an  unlikely  eandidate  for  SCORM.  The 
military  is  one  of  the  world’s  most  proteetive  organizations  eonceming  information 
access,  highly  particular  about  who  may  gain  access  and  what  information  is  accessible. 

Moreover,  aeeess  to  eaeh  of  these  disparate  systems  is  restricted  to  certain  sources.  They 
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have  conflicting  and  overlapping  firewall  restrictions  and  multiple  local  and  wide  area 
networks  (Englebrecht,  2003).  Figure  1  provides  an  example  illustrating  these 
restrictions.  While  the  intent  of  ADL  was  to  enable  content  sharing  whereby  Marines 
undergoing  tank  training  at  Quantico  could  access  the  same  training  material  used  by 
soldiers  at  the  U.S.  Army  Tank  School  at  Fort  Knox,  incompatibility  across  domains 
actually  thwarts  this  effort. 


Centralized  LMS  Servers 

www.marinenct.usmc.mil 


contentl.marincnet.usmc.mil 

01 


SCORM 


Content 


Server 


m 

Quantico  Marine  Corps  Base 
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Figure  1 .  Illustration  of  SCORM  Incompatibility  in  Enterprise  System 

(From  Ref  Englebrecht,  2003) 


Firewalls  are  not  the  only  hurdles  that  SCORM  must  overcome.  Another 
complication  occurs  when  accessing  or  launching  SCORM-compliant  courses.  SCORM 
employs  an  Application  Program  Interface  (API)  to  communicate  with  a  compliant 
Feaming  Management  System  (FMS).  In  addition,  SCORM  does  not  permit  the  use  of 
HACPl  because  it  is  based  upon  the  Hyper  Text  Transport  Protocol  (HTTP).  API  uses 
Java  Scripts  to  handle  all  communication  between  the  course  content  and  the  FMS.  The 
use  of  Java  Script  allows  easier  course  development  since  most  of  the  direct  interfacing 
with  the  FMS  database  abstracts  to  a  set  of  Java  Script  functions  (Englebrecht,  2003). 


1  jjjjp  AICC  (Aviation  Industry  CBT  Committee)  Communication  Protocol 
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1.  Application  Program  Interface 

Within  this  model,  the  first  step  for  a  SCORM-compliant  course  will  be  to  find 
the  API  so  that  it  may  communicate  with  the  LMS.  While  this  step  may  appear 
straightforward,  it  is  actually  much  more  convoluted.  The  confusion  arises  when  one 
considers  the  source  and  location  of  the  code.  The  function  that  calls  to  find  the  API  and 
the  execution  of  the  individual  functions  contained  within  the  API  are  the  responsibility 
of  the  individual  SCOs;  however,  the  source  of  the  API  is  the  LMS,  as  shown  in  Figure  2. 
Upon  launch  from  the  LMS,  the  LMS  must  maintain  a  web  browser  window  or  frame 
that  contains  the  API  and  the  SCO  must  be  capable  of  locating  and  including  the  API 
functions  as  if  the  functions  were  a  part  of  the  content.  Theoretically,  the  two  should 
reside  on  the  same  domain.  If  this  is  the  case,  then  there  is  absolutely  no  problem. 
However,  in  practice  this  is  seldom  the  case.  If  the  content  is  not  on  the  same  domain  as 
the  LMS,  security  policies  will  not  allow  the  content  to  call  upon  the  API,  thereby 
disabling  the  entire  process  and  rendering  the  learning  object  worthless  and  useless. 


Figure  2.  Cross-Domain  Problem  in  SCORM 
(From  Ref  Englebrecht,  2003) 
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2.  Sandboxing  versus  Code  Signing 

A  browser,  without  the  knowledge  or  consent  of  the  user,  may  call  upon 
malicious  code  hidden  within  web  pages.  Two  means  of  reducing  or  eliminating  this  risk 
are  sandboxing  and  code  signing.  Sandboxing  employs  Java,  which  does  not  allow  the 
unidentified  code  to  function  outside  the  parameters  of  the  program.  This  also  serves  to 
limit  its  interaction  and  interference  with  other  processes  or  programs.  This  method  does 
not  require  user  input. 

Code  signing,  on  the  other  hand,  uses  ActiveX  and  places  the  burden  of  code 
validation  upon  the  user.  If  the  user  can  authenticate  it,  it  may  run.  No  systems  security 
officer  would  allow  such  a  rule.  Such  authentication  requires  that  the  user  understand  the 
purpose  of  the  code.  All  too  often,  the  greatest  threats  to  computer  systems  are  the  users 
who  do  not  understand  their  own  actions  and  cause  security  breaches  through  their 
negligence.  Thus,  this  model  is  not  well  suited  for  the  DoD  environment.  Sandboxing  is 
the  only  clear  alternative.  Unfortunately,  that  means  that  all  the  necessary  code  that  a 
SCORM-compliant  course  requires  must  reside  on  one  single  domain  or  sandbox. 

1 .  DoD’s  Mobile  Code  Policy 

DoD’s  mobile  code  policy  disallows  the  importing  of  code  from  outside  domains 
to  run  objects  within  its  domains  (DoD  CIO  Memorandum,  2000).  The  firewall  controls 
prohibit  courseware  from  crossing  the  predefined  firewall  boundaries,  a  rational  measure 
for  any  organization.  However,  DoD  goes  one  step  further  and  restricts  the  use  of  web 
technologies  such  as  Java,  JavaScript,  ActiveX,  Macromedia  Shockwave,  Macromedia 
Flash,  and  most  other  client-side  programming  technologies.  These  technologies  are 
grouped  into  one  of  three  categories.  Categories  1  and  2  allow  the  running  of  code  only 
from  trusted  sources.  Category  3,  on  the  other  hand,  contains  a  great  deal  of  the 
applications  that  provide  the  rich  interactive  environment  for  a  truly  engaging  and 
worthwhile  learning  experience.  To  avoid  violating  this  policy,  each  command  would 
require  its  own  LMS  (Englebrecht,  2003).  Another  more  cost-effective  method  may  be 
the  creation  of  a  central  LMS,  such  as  Navy  Knowledge  Online,  but  this  would  only 
address  content  developed  and  maintained  by  the  Navy.  As  a  result,  yet  another  measure 
must  address  the  education  and  training  content  developed  and  maintained  by  other 
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branches.  If  there  were  one  central  area  for  everyone,  the  gargantuan  task  of  maintaining 
currency  of  content  would  be  incredible,  and  perhaps  insurmountable,  inevitably  leading 
to  outdated  and  inaccurate  information. 

G.  CONCLUSION 

SCORM  has  many  issues  in  the  area  of  architecture  (enterprise-wide 
implementation),  clearer  definition  of  its  Objects,  as  well  as  its  limited  applicability  to 
certain  types  of  educational  material.  The  purpose  of  this  chapter  was  to  illustrate  that  the 
needs  of  higher  education  cannot  be  met  by  SCORM.  The  relationship  of  this  chapter  to 
the  remaining  paper  is  that  it  provides  for  a  transition  from  thinking  that  SCORM  is  the 
panacea  for  information  categorization  and  sharing.  Indeed,  it  is  not. 
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IV.  EDUCATION  VERSUS  TRAINING 


A.  INTRODUCTION 

The  terms  “education”  and  “training”  are  frequently  used  interchangeably  without 
considering  their  actual  dissimilarities.  The  military  especially  often  treats  the  terms  as 
synonyms,  despite  the  fact  that  each  concept  requires  a  different  approach.  This  chapter 
clarifies  the  distinction  between  education  and  training,  in  addition  to  illustrating  the 
applicability  of  SCORM  to  each. 

B.  ADL’S  VISION  OF  LEARNING 

Learning  is  the  bridge  from  information  to  understanding.  It  is  most  effective 
when  coupled  with  experience;  it  leads  to  changes  in  thinking  and  behavior;  it  requires 
time  for  reflection  and  integration.  Information  superiority  of  the  future  will  be  the 
gathering,  processing,  fusion,  and  dissemination  of  more  accurate  and  timely  information 
and  knowledge,  anywhere,  anytime,  every  time.  The  forces  must  continuously  learn, 
simulate,  and  rehearse,  whether  in  school,  at  home  station,  at  home,  en  route  to,  or  in  the 
theater  of  operations.  The  forces  must  fight  in  a  coordinated  and  cooperative  fashion  on  a 
moment’s  notice.  (W.  Cohen,  1999) 

According  to  Rehak,  "SCORM  is  essentially  about  a  single-learner,  self-paced 
and  self-directed.  It  has  a  limited  pedagogical  model  unsuited  for  some  environments” 
(Kraan,  2002).  One  such  environment  may  be  higher  education,  the  domain  of  colleges 
and  universities.  The  “right-time,  right-place”  theory  cannot  truly  apply  to  higher 
education.  Higher  education  requires  deliberate  coordination  and  management  of  time 
and  resources,  as  well  as  sufficient  guidance.  The  idea  that  individual  learners  may  direct 
themselves  through  two  years’  worth  of  associate’s  degree  requirements,  four  years’ 
worth  of  baccalaureate  degree  requirements,  or  six  years  of  master’s  degree  requirements 
makes  “right-time,  right-place”  for  higher  education  fallacious  by  any  stretch  of  the 
imagination.  Among  the  many  differences  between  education  and  training  discussed  here 
is  the  time  span  involved  for  each.  Degree-level  education  represents  too  much 
information  to  be  grasped  and  immediately  used  in  a  brief  amount  of  time.  Conversely, 
training  can  take  place  over  a  few  months,  weeks,  or  even  days,  with  the  intent  that  the 
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achieved  objectives  may  immediately  be  put  into  practice.  It  cannot  be  argued  that 
learning  encompasses  the  areas  of  education,  training  and  performance  aiding.  However, 
the  approach  taken  to  deliver  the  necessary  information  in  each  category  varies. 

The  106*  Congressional  Report  “Total  Force  Integration”  points  out  that 
America’s  military  forces  have  a  long  tradition  and  well-deserved  reputation  of  providing 
world-class  education  and  training  (W.  Cohen,  1999).  The  report  also  indicates  the 
mechanism  delivering  this  education  and  training  is  in  need  of  reevaluation  to  keep  pace 
with  educational  technology.  The  overwhelming  success  of  Operation  Desert  Storm  was 
attributed  to  highly  educated  and  trained  service  members.  It  was  also  noted,  however, 
that  many  of  these  warriors  trained  in  the  same  classrooms  that  prepared  their 
grandfathers  for  World  War  II,  which  suggests  military  training  and  education  treads  a 
fine  line  between  the  tried-and-true  and  the  outdated.  The  argument  in  favor  of  a 
paradigm  shift  in  education  and  training  is  a  response  to  the  current  conditions  of 
increasingly  demanding  deployment  criteria  coupled  with  other  time-sensitive 
constraints. 

The  singular  element  that  supposedly  necessitates  the  paradigm  shift  in  learning  is 
the  pace  with  which  new  technologies  and  weapons  systems  are  introduced. 
Advancements  in  technology  invariably  introduce  greater  complexity  in  modem  weapons 
systems.  Learning  a  weapons  system  or  any  other  system  requires  training  in  a  specific 
area  of  that  system.  It  would  be  far-fetched  to  require  or  expect  one  person  to  have  the 
requisite  knowledge  and  skill  do  everything  on  an  entire  system.  The  person  trained  to 
use  it  is  often  not  the  same  person  trained  to  maintain  and  repair  it.  The  person  who 
designed  it  is  usually  not  the  one  that  built  it.  The  complexities  of  modem  military 
systems  make  it  difficult  to  find  that  sole  genius  who  can  do  it  all.  This  poses  the 
question:  is  the  dictated  paradigm  shift  intended  for  education,  for  training,  or  for  both? 
(W.  Cohen,  1999) 

C.  WHAT  IS  THE  DIFFERENCE? 

Education  and  training  may  have  some  elements  in  common,  but  they  are 
distinctly  different.  Each  requires  a  specific  teaching  methodology  and  objective.  In 
some  instances,  education  may  be  the  most  suitable  method,  while  other  instances  may 
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call  for  training,  and  still  other  cases  involve  a  balance  of  both  education  and  training. 
Consider  the  differences  in  a  parent’s  response  if  a  teenager  announced  that  her  high 
school  was  offering  a  sex  education  course  versus  a  sex  training  course.  The  parent’s 
response  would  be  markedly  different.  Drivers  “education”  is  actually  an  example  of 
education  and  training  working  hand-in-hand:  prospective  drivers  should  have  the  benefit 
of  both  education  about  theories  and  concepts  as  well  as  behind-the-wheel  training  to  put 
these  ideas  into  practice.  Likewise,  a  person  who  wants  to  learn  to  fly  must  spend  many 
hours  in  “ground  school”  before  being  allowed  aboard  the  plane,  yet  the  prospective  pilot 
must  also  log  many  hours  of  flight  training  before  being  granted  a  license. 

Teaching  styles  vary  for  education  and  training.  A  teacher  educates  people  about 
the  principles  or  rationale  behind  a  particular  policy,  program,  or  process.  Education  is 
designed  to  foster  individual  creativity,  ownership,  or  empowerment.  Education  targets 
thought  processes  directly  and  might  indirectly  influence  what  people  do.  Training,  in 
contrast,  targets  behavior  directly  and  might  indirectly  influence  thought  processes 
(Geller,  2000). 

Education  is  generally  measured  by  duration:  days  spent  in  a  seminar  or  four 
years  in  college.  Training,  on  the  other  hand,  is  measured  by  what  one  can  do  when  it  has 
been  completed.  Training  is  doing.  Training  improves  performance.  For  training  to 
work,  it  must  have  defined  and  measurable  objectives  (Cross,  1996).  Education  does  not 
have  such  predefined  measures  of  mastery. 

D.  MILITARY  EDUCATION  OR  MILITARY  TRAINING 

The  DoD  and  much  of  industry  tend  to  focus  more  on  training  than  education.  It  is 
important  to  differentiate  between  these  two  terms.  Because  they  both  involve  learning, 
they  are  similar,  and  in  everyday  conversation  the  terms  are  often  used  interchangeably. 
However,  they  are  not  the  same.  The  Random  House  Webster’s  Dictionary  (1999) 
defines  training  as  “activity  leading  to  skilled  behavior,”  while  education  is  “the  gradual 
process  of  acquiring  knowledge.” 

Learning  is  often  classified  into  three  domains:  psychomotor  (doing),  cognitive 
(thinking),  and  affective  (feeling).  Training  emphasizes  the  psychomotor  domain  of 
learning,  targeting  behavior  directly,  while  education  concentrates  on  the  cognitive 
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domain,  targeting  thought  processes  directly.  Education  aims  for  high  comprehension, 
while  training  done  in  the  cognitive  domain  usually  focuses  on  general  knowledge. 
(Kline,  1985) 

Training  is  concerned  with  meeting  criterion  objectives,  where  a  student  is 
expected  to  exhibit  specific  behavior  in  accordance  with  a  predetermined  level  or 
standard  (e.g.,  “List  the  steps  for  administering  CPR.”).  Verification  of  skills  learned  is 
best  achieved  through  demonstration  in  the  “real  world,”  perhaps  through  a  simulated 
experience  (Kurtus,  1999).  Cognitive  objectives,  involving  a  student’s  ability  to  analyze, 
evaluate  and  apply  information,  are  more  appropriate  for  education.  Testing  in  education 
usually  concerns  the  memorization  of  facts,  events  and  principles,  and  the  association 
between  concepts. 

Training  is  a  closed  system,  where  the  trained  individual  is  recognized  as 
knowing  the  “right  answers”  or  doing  things  the  “approved  way”  (Kline,  1985).  Thus,  the 
work  of  each  trainee  is  expected  to  have  a  uniform  quality.  Education,  however,  is  an 
open  system.  There  is  no  limit  to  how  well  a  graduate  may  be  prepared  to  handle  new 
responsibilities.  In  the  Navy,  this  difference  translates  to  cost-effectiveness.  While  an 
education  provider  would  not  be  concerned  with  overeducating  a  student,  a  training 
provider  would  consider  overtraining  cost-ineffective  (Granado,  2003). 

Since  students  are  encouraged  to  develop  to  their  full  potential,  education  is  not 
bounded  by  constraints  of  job  requirements,  skill  levels,  or  objectives,  as  they  are  with 
training.  Time  requirements  for  training  can  vary  depending  on  the  aptitude,  experience 
and  skill  level  of  the  student,  while  in  education  time  is  often  a  constant  (four  years,  45 
quarter  units,  etc.),  and  therefore  specified. 

The  development  of  curricula  is  different  for  education  than  for  training.  A  task 
analysis  can  determine  a  complete  listing  of  skills  and  knowledge  necessary  for  a  trainee 
to  demonstrate  competence.  In  contrast,  educators  must  often  look  to  experts  to  determine 
what  needs  to  be  taught.  With  a  universe  full  of  ideas,  it  is  often  hard  to  reach  a 
consensus.  This  lack  of  exactness  is  observed  when  comparing  the  curricula  of  two 
similar  disciplines  at  two  different  schools. 
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A  prevailing  concept  in  the  field  of  instructional  design  concerns  the  interaction 
between  three  major  entities  in  a  typical  learning  environment:  the  textbook/leaming 
materials  and  other  documents,  the  instructors,  and  the  students  (DLRC  interview,  2004). 
Each  of  these  interacts  with  the  other  (Student^->Instructor,  Student^->Textbook)  and 
with  themselves  (Student<-AStudent).  Where  training  is  concerned,  the  most  important 
interaction  is  usually  Student<-AText,  followed  by  Student<- A  Teacher. 
Students- ^Student  interaction  is  rarely  emphasized  in  training  environments.  However, 
in  education.  Students- ^Student  becomes  a  high  priority — ^perhaps  the  highest. 
Distributed  learning  training  environments,  in  addition  to  a  lack  of  Student<- A  Student 
interaction,  may  often  lack  Student<- A  Instructor  interaction.  This  is  especially  true  when 
using  Computer-based  training  (CBT)  materials  and  NETC  GMT  materials:  the  student 
only  interacts  with  the  material’s  content. 

In  some  cases,  a  strategic  combination  of  training  and  education  may  be  necessary 
to  achieve  an  organization’s  goals.  An  example  would  be  in  safety  education  and 
training.  According  to  Geller  (2000), 

Safety  education  without  follow-up  training  will  not  reap  optimal  benefits. 
Learning  the  theory  or  principles  behind  an  intervention  approach  is 
crucial  for  customizing  procedures  for  a  particular  work  situation.  But 
after  the  procedures  are  developed  —  hopefully  with  input  from  an 
educated  work  team  —  training  is  necessary.  People  need  to  know 
precisely  what  to  do. 

Distributed  learning  has  been  used  to  support  both  education  and  training  in  the 
public  and  private  sectors.  As  the  drive  toward  standards  continues,  with  its  emphasis  on 
content  reusability  and  interoperability,  differences  in  the  way  content  is  delivered  could 
be  of  greater  benefit  to  training  than  education.  In  the  training  environment,  emphasis  is 
on  what  the  trainee  wants  or  needs  to  know  rather  than  all  that  is  known.  For  this  reason, 
it  is  expected  that  the  adaptation  rate  and  utilization  of  SCORM-conformant  learning 
objects  will  be  higher  at  institutions  focused  on  training  (Granado).  However,  the  ADL 
initiative  addresses  the  use  of  reusable  content  for  education  as  well  as  training.  This  has 
prompted  considerable  controversy  from  academia  concerning  the  instructional 
soundness  of  “chunked”  content. 
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E.  INDIVIDUALIZED  STANDARDIZED  EDUCATION  &  TRAINING 

ADL  and  SCORM  have  marketed  their  initiatives  by  promoting  the  idea  of 
individualized  and  tailored  content,  standardized  based  upon  predefined  criteria.  Both 
initiatives  require  standardization  of  content  and  delivery  in  order  to  achieve  widespread 
acceptance.  However,  by  definition  content  cannot  be  both  individualized  and 
standardized  at  the  same  time. 

By  forcing  standardization  of  delivery,  ADL  and  SCORM  proponents  are  hoping 
to  provide  something  for  everyone.  In  response  to  user  feedback,  the  latest  version  of 
SCORM  incorporates  better  sequencing  capabilities,  allowing  a  user  to  ‘jump  around’  as 
opposed  to  being  confined  to  the  sequence  in  which  course  material  is  presented.  The 
learner  can  choose  the  method  in  which  he  wants  to  learn,  via  either  concepts  or 
examples  or  practice  sessions.  This  does  indeed  support  learners  developing  their  own 
approach  to  learning.  The  caveat  is,  if  they  are  ready  (Cross,  2003).  Learner-sequencing 
of  the  material  will  only  be  effective  if  the  student  has  a  clear  goal  in  mind.  Without  a 
clear  learning  objective,  the  student  may  walk  away  with  a  jumble  of  ideas  but  not 
comprehension. 

Because  every  person  learns  differently,  standardization  of  material  will  not 
necessarily  command  standardization  of  learning.  Recent  research  revealed  thirty-one 
different  ‘flavors’  or  dimensions  along  which  learners  could  differ  with  over  two  billion 
different  possible  configurations  (Cross,  2003).  Distance  learning  material  and  its 
delivery  must  be  sensitive  to  and  support  the  many  ways  in  which  students  learn.  Mark 
Twain  said,  “I  will  not  let  schooling  get  in  the  way  of  my  education.”  He  must  have 
known  about  the  emerging  standards  that  were  outlined  for  SCORM. 

The  military  sustains  itself  and  its  traditions  by  not  allowing  variety  to  encumber 
tradition,  good  order,  and  discipline.  It  is  evident  in  their  uniforms,  their  grooming 
standards,  and  their  education  and  training.  From  boot  camp  on,  service  members  are 
taught  to  learn  the  military  way — a  great  deal  of  information  in  a  very  short  amount  of 
time.  A  fitting  analogy  for  this  approach  is  attempting  to  drink  from  a  fire  hose.  If  ADL 
is  to  succeed,  the  military  must  be  re-trained  and  re-educated  on  new  approaches  to 
learning.  What  is  happening,  in  essence,  is  an  extension  of  the  short-attention- span 
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philosophy  of  every  other  element  in  today’s  soeiety.  Beeause  of  short-fused  deployment 
and  laek  of  time,  information  must  be  prepared  in  a  single-serve  paekage  for  a  specifie 
purpose.  There  is  insuffieient  time  to  add  side  dishes  that  may  distract  from  the  primary 
point.  If  a  good  education  can  be  likened  to  a  healthy  diet,  eliminating  certain  items  from 
the  normal  diet  may  prove  to  be  detrimental  in  the  short  term  and  cause  malnourishment 
in  the  long  term.  Education  requires  a  complete  view,  and  all  the  food  groups  must  be 
represented  in  order  to  have  the  full  picture 
F.  CONCLUSION 

This  chapter  examined  the  distinct  differences  between  education  and  training. 
While  education  concerns  itself  with  the  gathering  of  facts,  concepts,  theories,  events, 
and  principles,  training  addresses  the  need  for  a  acquiring  a  specific  skill.  The  following 
chapter  will  discuss  the  similarities  and  differences  of  Learning  Management  Systems 
(LMS)  and  Content  Management  Systems  (CMS)  to  ascertain  which  may  be  most 
beneficial  within  either  environment. 
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V.  CONTENT  MANAGEMENT 


A.  INTRODUCTION 

Because  the  content  universe  offers  infinitely  diverse  material,  a  traditional 
Learning  Management  System  (LMS)  may  not  be  the  ultimate  solution  to  content 
management.  Learning  Content  Management  Systems  and  Content  Management 
Systems  complement  and  sometimes  even  substitute  for  an  LMS. 

B.  LEARNING  CONTENT  MANAGEMENT  SYSTEM  (LCMS) 

A  Learning  Content  Management  System  (LCMS),  shown  in  Figure  3,  is 
generally  used  to  create  content  efficiently.  This  efficiency  is  realized  when  subject 
matter  experts,  professors,  authors,  or  instructional  designers  use  an  LCMS  to  create 
‘just-enough’  content  to  meet  the  needs  of  individuals  or  small  groups  of  learners.  This 
eliminates  the  need  to  design  an  entire  course  that  is  bogged  down  by  too  much  detail  in 
an  attempt  to  provide  something  for  everyone.  Designers  are  given  the  artistic  freedom 
to  select  the  most  relevant  or  necessary  pieces  to  fulfill  a  specific  objective.  Evolution  by 
Upstart  is  an  example  of  an  LCMS  licensed  to  NFS. 

The  drawbacks  to  an  LCMS  are  that  it  takes  a  great  deal  of  foresight,  planning, 
and  skill  to  design  effective  learning  objects — even  when  templates  and  examples  are 
provided.  Designers  must  think  in  a  non-linear  fashion  and  have  a  fair  understanding  of 
all  the  contexts  in  which  an  object  might  be  needed  or  used.  Some  courses,  such  as  those 
required  for  safety  or  certification  programs,  are  required  to  cover  a  specific  set  of  topics 
in  a  certain  order  and  should  not  be  broken  apart.  For  example,  if  a  learning  object  is 
taken  out  of  context  or  presented  with  insufficient  supporting  information,  it  can  do  more 
harm  than  good  (Greenberg,  2002). 

C.  LEARNING  MANAGEMENT  SYSTEM  (LMS) 

Learning  Management  Systems  are  designed  to  manage  learning  objectives  on  an 
organizational  scale.  This  primary  solution  replaces  isolated  and  fragmented  learning 
programs  with  a  systematic  means  of  assessing  and  raising  competency  and  performance 
levels  throughout  the  organization.  Such  efforts  as  enterprise-wide  skills  assessment  and 
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(From  Ref.  Nichani,  2002) 

certification  can  be  orchestrated.  The  focus  of  an  LMS  is  to  manage  learners,  keeping 
track  of  their  progress  and  performance  across  all  types  of  training  activities.  It  can  also 
handle  a  great  deal  of  the  administrative  overhead  of  record  keeping  (Greenberg).  A 
graphical  illustration  of  an  LMS  is  provided  in  Figure  4. 

NFS  uses  Blackboard  as  its  enterprise-wide  LMS,  although  not  all  professors  take 
full  advantage  of  all  of  its  functionalities.  Actual  DL  instructors,  teaching  fully  remote 
classes,  are  more  likely  to  utilize  all  of  the  functionality,  but  many  campus  instructors 
merely  use  Blackboard  to  put  up  their  notes  as  a  website.  As  a  result,  NFS’s  Blackboard 
system  serves  instead  as  a  central  repository  for  disparate  sources  of  content.  A  possible 
reason  for  this  is  that  students  at  NFS  are  not  actually  employees,  thus  their  learning  and 
training  needs  are  addressed  through  other  means.  Blackboard,  as  an  LMS,  offers  much 
functionality  but  does  not  foster  or  encourage  institution-wide  sharing.  Content  is 
statically  housed  within  the  many  pages  that  must  be  created  manually.  Typically  only 
those  students  enrolled  in  the  class  have  ready  access  to  the  material,  although  instructors 
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do  have  the  ability  to  allow  non-students  guest  aeeess  to  their  material.  Access  to 
information  is  limited  to  manual  searching  via  the  navigation  menu  and  a  subsequent  list 
of  content.  Moreover,  it  does  not  allow  for  dynamic  searches  of  content. 
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Figure  4.  Learning  Management  System 
(From  Ref.  Nichani,  2002) 

D.  CONTENT  MANAGEMENT  SYSTEM  (CMS) 

Familiarity  with  the  basic  features  of  an  LMS  as  well  as  LCMS  allows  for  a 
clearer  understanding  of  a  Content  Management  System  (CMS),  shown  in  Figure  5.  A 
CMS  allows  content  to  be  stored,  retrieved,  edited,  updated,  controlled,  then  output  in  a 
variety  of  ways  (OIT,  2004)  The  primary  objective  of  a  CMS  is  the  organization  and 
administration  of  online  material  such  as  text,  graphics,  images,  animations,  audio/video 
fdes,  etc.  It  manages  the  content,  not  its  creation  or  its  users.  Rather  than  allowing 
aggregate  and  disorganized  storage  of  content,  a  CMS  allows  efficient  identification, 
compartmentalization,  and  retrieval  of  material  (Nichani,  2001).  The  process  of 
cataloguing  and  arranging  content  can  be  organization-specific.  A  CMS  allows  sharing 
of  corporate  knowledge  housed  within  every  member  of  the  organization.  Their 


33 


f 


f 


Dc4igne;r 


Rcptortcr 

tgr^phica.  chi.nSr  Sntcrvicws.  etc.) 

Ijanncrrs^  *trciSrnlnq  .  policy.  u$er  ^greement^ 

etc.  'y  I  /  etc. 


Ci>nCcM  componersti 


AuEhpr 


Editing  &  Approval  TApprove 
l^r^onalKzcd  assemntjlv 

CMS  Pu’aiish 

/  I  \ 


I  m 


Sm 


Pu&Irshcd  artfeJes  personalized  to  target  reader 

Figure  5.  Content  Management  System 
(From  Ref.  Nichani,  2002) 

contributions  allow  for  the  widest  dissemination  possible  via  an  organized  delivery 
mechanism. 


If  a  course  were  structured  in  such  a  manner  that  it  does  not  lend  itself  to 
implementation  within  a  Learning  Management  System  (LMS),  it  would  be  a  waste  of 
resources  to  force  it  to  fit.  Although  it  cannot  benefit  from  a  full-scale  LMS,  such  a 
course  could  be  housed  in  and  distributed  by  a  Content  Management  System.  These 
types  of  courses  do  not  require  an  on-line  mechanism  to  gauge  student  progress. 

Though  the  proposed  CMS  focuses  on  the  “pull”  side  of  information  access  and 
retrieval,  CMSs  do  have  the  capability  to  push  information  in  a  personalized  manner.  It 
can  adeptly  access  every  piece  of  information  within  the  organization. 

E.  CHARITY  BEGINS  AT  HOME 

Professors  at  NPS  have  already  accomplished  the  most  tedious  part  of  content 

management:  content  creation.  Instructors  have  presentation  slides,  text  documents, 

graphics,  or  animation  for  every  class  taught  at  NPS.  Only  by  attending  the  course  will  a 
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person  be  aware  of  the  content  as  presented  by  the  professor.  In  many  ways,  a  professor 
is  the  first  line  of  defense  in  the  war  against  information  overload.  The  professor  is 
intimately  familiar  with  what  is  most  pertinent  and  timely  in  a  given  field.  Rather  than 
students  or  users  performing  the  initial  litmus  test,  they  can  rely  upon  the  expertise  and 
discretion  of  the  professor  to  guide  them  in  a  particular  subject  area.  A  professor’s 
creation  is  not  fully  utilized  when  presented  only  to  the  intended  audience  of  students.  It 
can  and  does  have  wider  application  beyond  the  course  being  taught.  It  could  be  made 
available  to  the  entire  organization  to  reap  the  true  value  of  the  content.  This  is,  of  course, 
provided  certain  intellectual  property  issues  are  addressed. 

This  thesis  also  pointed  out  that  organizational  culture  was  a  major  obstacle. 
Professors  are  unwilling  to  give  up  their  artistic  freedom  and  perhaps  their  ownership  of 
material  that  they  have  created.  They  cannot  see  the  value  of  sharing  because  they  have 
not  had  to  work  within  an  environment  that  mandated  it.  The  redeeming  factor  of 
SCORM  is  its  desire  to  create  once  and  use  often.  As  long  as  the  material  is  up-to-date 
and  accurate,  it  should  be  shared  to  the  maximum  extent  possible.  By  touting  the  value 
of  return  on  investment,  people  may  be  more  apt  to  participate  in  this  endeavor.  At  this 
stage,  the  real  value  of  SCORM  cannot  be  seen.  Once  professors  find  materials  that 
complement  their  teaching,  they  will  be  more  inclined  to  offer  their  works  to  other 
academics  as  well  as  accept  materials  from  them.  This  currently  occurs  in  distance 
learning  courses  around  the  globe  whenever  a  professor  places  a  hyperlink  to  an  external 
source,  such  as  a  news  article  or  website.  The  vision  of  SCORM’s  developers  is  that  this 
academic  commerce  should  take  place  in  a  controlled  environment  where  the  content  has 
been  created  to  specification. 

F.  POLITICS  IN  ACADEMIA 

Often,  managers  and  executives  are  looking  for  a  return  on  investment  before  they 

commit  themselves  or  risk  any  type  of  loss.  At  times,  the  upfront  costs  are  too  exorbitant 

and  thus  deter  many  from  accepting  new  ventures.  SCORM  presents  such  a  challenge. 

This  thesis  offers  that  it  is  possible  to  have  an  intermediary  process  to  illustrate  the  value 

of  sharing  within  such  a  politically  charged  environment  as  academia.  There  is  no 

singular  source  of  information  in  any  given  field  of  study  upon  which  all  professors 

agree.  This  is  quite  evident  by  the  fact  that  although  a  similar  course  may  be  taught  at 
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different  institutions,  or  even  at  the  same  institution,  the  information  presented  to  students 
and  the  learning  objectives  will  vary  from  instructor  to  instructor.  Professors 
undoubtedly,  and  rightly,  feel  that  their  selected  material  is  that  which  reflects  the  most 
crucial  elements  to  convey.  They  are  recruited,  hired,  and  retained  for  their  knowledge 
and  experiential  wisdom  in  a  given  field.  They  are  not  as  valued  for  their  ability  to  create 
content.  An  educational  specialist  or  technician  can  be  paid  a  fraction  of  the  professor’s 
salary  to  create  and  compartmentalize  content. 

Before  SCORM  can  be  fully  realized,  there  must  exist  an  intermediary  process 
that  allows  for  incremental  progress.  It  is  possible  to  dissect  and  implement  SCORM  in 
an  intermediary  phase  based  upon  the  user  requirement  that  the  content  must  first  be 
sharable.  One  of  the  challenges  pointed  out  by  the  Services  was  that  of  identification  of 
material  suitable  for  conversion  to  SCORM  standards.  If  it  is  so  unique  that  no  more 
than  a  handful  of  individuals  would  be  interested  in  the  material,  then  the  investment  in 
conversion  is  a  waste  of  resources  in  time,  money,  and  personnel  hours.  However,  by 
allowing  content  to  be  placed  within  a  centrally  managed  repository  and  granting  users 
permission  to  view  items,  it  is  being  shared  and  thus  meeting  a  basic  premise  of  SCORM 
-  it  is  now  sharable  content. 

G.  JUST  ENOUGH  LEARNING 

Another  aspect  of  SCORM  that  may  be  addressed  at  this  stage  is  that  of  content 
decomposition.  It  does  not  have  to  be  the  level  of  granularity  of  an  ‘object’  as  defined  by 
SCORM.  Various  estimates  have  been  offered  describing  how  much  information  is 
actually  retained  by  the  learner  given  the  medium  of  delivery.  The  consensus  is  that  there 
is  too  much  information  currently  available  concerning  most  topics.  It  cannot  be  argued 
that  the  information  presented  to  students  needs  to  be  organized  in  such  a  manner  to 
allow  slow  digestion  by  serving  them  in  small  pieces.  This  ‘just-enough’  teaching  style 
assures  that  students  are  not  overwhelmed  and  thereby  are  able  to  retain  more  of  what  is 
actually  presented  because  they  are  not  sifting  through  irrelevant  or  superfluous  material. 
(Nichani,  2001)  All  too  often,  the  information  that  is  presented  is  too  much  for  one 
person  to  truly  absorb  and  retain.  A  Content  Management  System  may  be  able  to  assist 
in  organizing  decomposed  content. 
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MIT’s  OpenCourseWare  endeavors  to  meet  the  sharing  challenge  to  an  extent. 
MIT  OpenCourseWare  (MIT  OCW),  a  large-scale,  Web-based  publication  of  MIT 
faculty’s  course  materials,  enables  the  open  sharing  of  the  faculty’s  materials  and 
pedagogy.  This  initiative  connects  visitors  with  the  syllabi,  lecture  notes,  and  calendars 
of  700  courses  (Potts,  2003).  In  addition,  most  course  sites  include  a  subset  of  other 
materials  such  as  multimedia  simulations,  problem  sets  and  solutions,  past  exams, 
reading  lists,  sample  MIT  student  projects,  and  a  selection  of  video  lectures.  Educators 
are  encouraged  to  utilize  the  materials  for  curriculum  development,  and  self-learners  and 
students  may  draw  upon  the  materials  for  self-study  or  supplementary  use.  While 
promising,  MIT  OCW  also  has  its  drawbacks.  It  organizes  the  information  in  static  web 
pages  through  which  students  or  viewers  must  navigate  to  locate  a  specific  segment.  The 
student  cannot  do  a  simple  ‘keyword  search’  to  locate  specific  content.  The  student  is 
offered  the  ability  to  select  from  a  master  list  of  courses  and  then  permitted  to  go  through 
the  materials  manually  to  find  the  specific  area  of  interest. 

H.  CONCLUSION 

SCORM’s  basic  idea  is  to  create  once  and  use  often.  With  this  guiding  principle 
in  mind,  the  focus  at  this  stage  of  SCORM  implementation  at  NFS  should  be  to  first 
foster  a  sense  of  sharing.  Rather  than  invest  millions  into  new  technologies,  NPS  should 
better  employ  technologies  it  already  owns.  As  described  in  prior  chapters,  course 
conversion  is  one  of  the  major  challenges  in  implementing  SCORM.  Instead  of  spending 
countless  hours  designing  new  material  that  may  or  may  not  be  SCORM-conformant,  or 
having  the  courses  go  through  a  conversion  process,  why  not  use  that  which  has  already 
been  created  and  is  ready  for  sharing? 

An  LMS  is  appropriate  for  those  students/users  that  are  enrolled  in  the  class. 
However,  individuals  who  are  interested  in  accessing  the  information  but  are  not 
registered  cannot  have  easy  access  to  it,  nor  are  they  aware  of  its  existence.  These 
individuals  do  not  need  the  full  spectrum  of  services  within  an  LMS,  such  as  grades, 
progress  evaluation,  participation  records,  or  tracked  learning.  They  merely  want  the 
benefit  of  access  to  the  content. 
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Most  professors  do  not  want  to  be  content  designers;  they  want  to  be  teachers. 
They  are  educators,  not  instructional  designers/technicians.  Their  expertise,  and  thus 
their  true  value,  lies  in  their  ability  to  breathe  life  into  concepts  and  theories.  A  CMS 
would  not  require  learning  new  technologies,  unlike  any  LCMS.  The  professor  may  need 
to  spend  a  great  deal  of  time  to  learn  the  new  technology  just  to  be  able  to  use  an  LCMS. 
It  may  not  add  much  value  to  implement  the  new  technologies  into  particular  courses.  A 
CMS  would  allow  sharing  of  information  created  by  the  technologies  already  known  to 
the  professors.  Even  if  the  conversion  process  were  simplified  through  templates  and 
storyboards,  the  new  converted  material  would  still  be  shackled  and  caged  within  the 
LCMS  that  created  it.  To  extract  the  material,  the  institution  would  need  to  make  the 
LCMS  available  to  everyone  that  needed  access  to  the  content. 

This  thesis  proposes  a  dynamic  Content  Management  System  for  the  Naval 
Postgraduate  School  and  will  be  discussed  further  in  the  next  chapter.  It  addresses  the 
first  user  requirement  of  SCORM:  make  content  sharable.  A  CMS  offers  the  needed 
level  of  granularity  to  organize  information  for  easy  identification  and  extraction.  It  does 
not  force  or  demand  such  a  fine  granularity  as  to  remove  context  from  the  learning 
content.  A  dynamic  CMS  would  allow  a  ‘keyword  search’  of  content  in  addition  to 
manual  navigation.  Blackboard  is  currently  developing  such  a  feature.  The  proposed 
CMS  would  have  the  ability  to  update  itself  dynamically  as  new  content  is  placed  within 
it.  It  also  maintains  the  integrity  of  the  many  relationships  in  order  to  maintain  the 
context  of  the  material. 


38 


VI.  CONTENT  MANAGEMENT  SYSTEM  DATABASE 


A.  INTRODUCTION 

A  Content  Management  System  (CMS)  is  a  single  database  designed  to  manage 
all  content  within  an  organization.  The  prototype  CMS  discussed  in  this  chapter  was 
designed  and  constructed  using  a  relational  database. 

B.  SEARCH 

This  database  features  two  paths  by  which  to  capture  the  information  that  resides 
in  the  subsections.  A  student  at  NFS,  as  well  as  users  outside  the  NFS  community,  may 
find  any  material  stored  within  the  database.  This  database  is  not  as  restrictive  as 
Blackboard,  which  limits  access  to  certain  authorized  parties  and  content.  This  database 
will  act  as  a  central  repository,  available  to  everyone  with  access  to  the  Internet. 

1.  Course 

The  first  path  is  through  “search  by  course,”  navigated  using  the  following  path: 
course  ->  chapter  topic  ->  subsection.  This  path  should  only  be  used  by  authors/ 
professors  and  students  from  NFS  who  are  familiar  with  the  content  layout,  enabling 
them  to  navigate  efficiently. 

2.  Keyword 

The  second  path  is  through  “search  by  keyword,”  navigated  using  the  following 
path:  keywords  paragraph  &  images.  This  path  is  open  to  users  unfamiliar  with 
navigation  through  the  first  path.  However,  both  types  of  users  may  use  either  path. 
Users  type  keywords  to  capture  the  specific  pieces  of  information  they  need  (paragraph  & 
images). 

C.  ALTER  DATABASE:  INSERT,  UPDATE  AND  DELETE 

Using  forms,  only  professors/authors  may  insert,  update,  or  delete  database 
content.  No  changes  are  made  to  the  database  structure.  Authorized  users  at  this  level 
must  be  registered  by  an  administrator  to  have  full  write  and  modify  privileges.  To  alter 
the  database,  the  professor  must  first  login  to  provide  identification  and  authentication, 
then  navigates  via  the  ‘course’  pathway  to  find  the  section.  The  “Insert,”  “Update”  and 

“Delete”  functions  are  restricted  to  those  users  granted  privileges  by  the  administrator. 
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The  pathway  includes  the  following:  Course  Subject  Topic  Subsection.  Actual 
content  resides  in  the  “Subsection”;  sections  preceding  it  contain  only  the  name  and 
description  of  each  section  but  do  not  contain  any  data. 

1.  Insert 

The  “Insert”  function  allows  the  addition  of  new  courses,  subjects,  topics,  and 
subsections.  A  new  “Course”  field  requires  the  course  code,  name,  and  description.  The 
“Subject”  and  “Topic”  fields  require  name  and  description.  The  ‘Subsection’  field 
requires  category,  header,  description,  content,  and  keywords. 

2.  Update 

The  “Update”  function  allows  editing  of  existing  content.  Course,  Subject,  and 
Topic  metadata  only  are  updated.  Actual  content  editing  takes  place  in  the  Subsection. 
The  forms  are  the  same  as  those  of  the  “Insert”  function. 

3.  Delete 

The  “Delete”  function  allows  the  removal  of  existing  content.  As  a  control  and 
safeguard  mechanism,  and  to  prevent  accidental  deletions,  upper-level  categories  such  as 
Course,  Subject,  and  Topic  cannot  be  deleted  until  all  content  in  the  Subsection  has  been 
removed.  To  protect  referenced  content,  a  course  that  is  referenced  by  other  courses 
cannot  be  deleted. 

D.  ADMINISTRATOR:  AUTHORS,  PROFESSORS  AND  CATEGORIES 

Only  the  administrator  is  authorized  to  add  and  remove  authors/professors.  The 
administrator  function  allows  for  the  addition,  update,  and  deletion  of  user  records, 
course  categories,  and  professors.  A  professor  must  first  be  entered  as  a  user  and  then 
classified  as  a  professor  to  be  assigned  to  courses  in  other  administrator  fields. 

I.  Authors/Users 

The  administrator  may  add  new  users/authors  to  the  database  via  this  form.  The 
registration  fields  include  First  Name,  Last  Name,  Office  Phone,  Office  Room,  Email 
Address,  User  Name/ID,  Password,  and  User  group. 
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2. 


Professors 


The  administrator  can  add  new  professors  or  associate  current  professors  to 
courses  to  authorize  modification  of  course  content.  The  Professor  form  requires  a 
selection  from  a  list  of  Users/ Authors,  a  list  of  courses,  and  a  room  assignment. 

3.  Categories 

In  the  Categories  section,  courses  are  grouped  for  easy  identification.  Various 
courses  are  compartmentalized  under  main  “umbrella”  headings. 

E.  RELATIONSHIPS 


The  relationships  between  the  entities  in  the  CMS  database  are  illustrated  in  the 
entity  relationship  diagram  (ERD)  in  Figure  6. 


Figure  6.  Entity  Relationship  Diagram  for  Content  Management  System  Databasee 

1.  Many  to  Many 


USER  COURSE 

A  USER  (e.g.  Professor)  can  teach  many  COURSES;  one  COURSE  can 
be  taught  by  many  USERS. 

TOPIC  ^  SUBSECTION 

A  TOPIC  can  have  many  SUBSECTIONS;  a  SUBSECTION  can  be 
included  in  many  TOPICS.  That  means  that  the  same  SUBSECTION  can 
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be  used  by  different  TOPICS  and  eventually  by  different  COURSES.  So, 
different  USERS  can  use  the  same  SUBSECTION  in  their  courses  (e.g.  A 
professor  that  teaches  networks  at  the  CS  department  can  use 
SUBSECTIONS  from  a  network  course  taught  at  the  IS  department). 

SUBSECTION  GRAPHICS 

A  SUBSECTION  can  have  many  GRAPHICS.  A  GRAPHIC  can  be 
included  in  many  SUBSECTIONS. 

2.  One  to  Many: 

COURSE  SUBJECT 

A  COURSE  can  have  many  SUBJECTS.  A  SUBJECT  must  be  included 
in  one  COURSE. 

SUBJECT  TOPIC 

A  SUBJECT  can  have  many  TOPICS.  A  TOPIC  must  be  included  in  one 
SUBJECT. 

CATEGORY  ^  SUBSECTION 

A  CATEGORY  can  have  many  SUBSECTIONS.  A  SUBSECTION  must 
be  included  in  one  CATEGORY. 

F.  DATABASE  SCHEMA 

A  database  schema  defines  a  database’s  structure,  its  tables,  relationships, 
domains,  and  business  rules.  This  design  is  the  foundation  upon  which  the  database  and 
applications  are  built.  It  describes  the  data  in  terms  of  a  data  model.  In  the  relational 
model,  the  schema  for  a  relation  specifies  its  name,  the  name  of  each  field  (or  attribute  or 
column)  and  the  type  of  each  field  (Kroenke,  2002).  The  schema  for  the  database  in  this 
study  is  shown  in  Figure  7. 
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CMS  DATABASE  SCHEMA 

USER  (userrid,  firstName,  lastName,  officephone,  officeRoom, 
email,  userName,  password,  userGroup) 

COURSE  fcourseid.  courseCode,  courseName, 
courseDescription) 

TEACH  (teachid,  professorid  (FK),  courseid(FK),  room) 

SUBJECT  fsubiectid.  courseid(FK),  subJectName, 
subjectDescription) 

TOPIC  ftopicid.  subjectid(FK),  topicName,  topicDescription) 

SUBSECTION  fsubsectionid,  categoryid(FK),  subsectionName, 
subsectionDescription,  content,  keywords,  author) 

TOPIC_HAS_SUBSECTIONS  fthsid.  topicid(FK),  subsectionid) 

GRAPHIC  fqraphicid,  graphicName,  graphicDescription, 
graphicPath,  author) 

SUBSECTION_HAS_GRAPHICS  fshgid.  subsectionid(FK), 
graphicid(FK)) 

CATEGORY  (categorvid.  categoryName,  categoryDescription) 

Figure  7.  CMS  Schema 
G.  DEVELOPMENT  METHODOLOGY 

1 .  Decide  upon  the  application  area  and  set  the  business  rules/requirements. 

2.  Create  the  Entity-Relationship  (E-R)  diagram  (or  Object)  using  a  tool  such  as 
a  table  designer. 

3.  Extract  the  tables. 

4.  Create  the  tables  in  the  DBMS. 

5.  Decide  upon  and  design  the  functionality  of  the  site  identifying  how  the 
menus  are  related  to  each  other  and  how  the  different  screens  are  connected. 
This  area  is  distinct  area  unto  itself.  Many  classes  are  offered  to  learn  more 
about  user  interaction  with  the  applications  as  well  as  screen  and  menu 
functionalities. 
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6.  The  next  most  important  step  that  may  have  serious  impaet  on  the  workflow  is 
that  of  the  database  design.  If  the  database  is  not  sufficiently  robust  or 
contains  design  errors,  the  problems  that  will  ensue  during  the  development  of 
the  site  will  be  almost  insurmountable. 

7.  Decide  on  the  site’s  appearance.  Choose  the  frame  structure,  if  any.  Consider 
colors  and  images.  Create  images,  if  necessary,  with  the  use  of  tools  such  as 
Macromedia  Fireworks  or  Adobe  Photoshop.  Using  these  programs  requires 
familiarity  with  the  software,  and  perhaps  entails  learning  it  beforehand. 
Designing  and  constructing  images  involves  trial  and  error. 

8.  Create  the  generic  templates  and  the  Cascading  Style  Sheets  (CSS)  that  will 
be  used  throughout  the  site  development.  The  use  of  templates  and  CSS  is  an 
excellent  efficiency  tool. 

9.  Investigate  and  remediate  technical  issues  related  to  servers. 

10.  Copy  the  database  to  the  corresponding  directory  and  establish  the  connection. 

1 1 .  Build  the  pages,  starting  with  the  simplest,  and  work  incrementally  up  to  the 
more  complex. 

12.  Lastly,  review  and  clean  all  pages  to  ensure  consistency  of  appearance  and 
functionality. 

13.  During  all  processes,  constant  attention  to  all  previous  work  and  the  effects  of 
alterations  or  new  functionalities  allows  bugs  to  be  discovered  early,  rather 
than  complicating  matters  to  the  point  of  paralysis. 

H.  SOFTWARE  USED 

•  Microsoft  Access 

•  Dreamweaver  MX  2004 

•  IIS  Server  -  Locally 

•  Active  Server  Pages  (ASP)  Technology 

•  VB  Scripting 
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I.  CONCLUSION 

This  chapter  elaborated  upon  the  details  of  the  actual  database  behind  the  Content 
Management  System.  This  CMS  is  designed  with  the  needs  of  higher  education  in  mind. 
It  allows  the  author/professor  to  define  each  category,  as  opposed  to  being  confined  to 
predetermined  decomposition  that  may  not  be  applicable  in  all  instances. 
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VII.  CONCLUSIONS  &  RECOMMENDATIONS 


A.  INTRODUCTION 

Understanding  the  initiative  behind  Advanced  Distributed  Learning  (ADL),  as 
well  as  the  limitations  of  the  Sharable  Content  Object  Reference  Model  (SCORM)  within 
the  academic  environment,  enables  a  greater  appreciation  of  a  Content  Management 
System  that  captures  the  true  spirit  of  ADL  and  SCORM.  The  CMS  prototype  discussed 
in  this  thesis  strives  to  provide  an  alternative  to  SCORM  as  well  as  an  intermediary 
process  to  identify  courses  most  suited  to  SCORM  conversion.  However,  there  remain 
several  opportunities  for  further  exploration  and  development. 

B.  RESEARCH  SUMMARY 

1.  The  Need  to  Manage  Content 

This  thesis  analyzes  the  Sharable  Content  Object  Reference  Model  (SCORM) 
within  higher  education,  offering  SCORM’ s  limitations  within  an  application 
environment  versus  a  theoretical/conceptual  platform.  The  thesis  also  considered 
whether  education  or  training  is  the  environment  better  suited  for  implementation  of  this 
technology. 

One  discovery  made  while  addressing  the  research  questions  is  that  from  the 
current  standards  set  forth  by  Advanced  Distributed  Learning  (ADL),  SCORM  is  the 
model  least  suited  for  higher  education.  SCORM  technology  will  prove  of  greater  utility 
within  the  Navy  Training  environment  rather  than  higher  education.  In  their  effort  to 
share  information,  higher  education  institutions  would  benefit  more  from  a  Content 
Management  System  in  conjunction  with  a  Learning  Management  System. 

Chapters  III- VI  addressed  the  limitations  of  SCORM,  provided  a  comparison  of  the 
applicability  of  SCORM  within  Navy  Education  and  Training  as  separate  entities,  and 
provided  a  prototype  of  a  Content  Management  System  for  institutions  of  higher  learning. 

2.  Advanced  Distributed  Learning 

A  thorough  comprehension  of  the  genesis  of  the  Sharable  Content  Object 
Reference  Model  (SCORM)  depends  upon  a  better  understanding  of  its  parent  initiative. 

In  1999,  three  years  after  introducing  the  Advanced  Distributed  Learning  (ADL) 
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initiative,  Congress  instructed  the  Department  of  Defense  (DoD)  to  pay  greater  attention 
to  the  utilization  of  technology  in  its  deployment  of  education  and  training  materials. 
The  original  concept  called  for  tailored  and  individualized  education  and  training. 
Individualized  training,  in  its  purest  sense,  can  never  be  a  reality.  An  alternative  is 
material  tailored  for  individual  communities  that  share  a  need  for  common  education  and 
training. 

3.  Limitations  of  SCORM 

The  Sharable  Content  Object  Reference  Model  (SCORM)  was  just  one  answer  to 
the  Advanced  Distributed  Learning’s  (ADL)  call  for  standardization.  It  has  many 
limitations  in  need  of  remedy.  One  limitation,  experts  argue,  is  that  SCORM ’s  cookie- 
cutter  approach  does  not  furnish  a  template  applicable  to  every  organization  that  produces 
educational  material.  SCORM  has  many  problems  in  the  area  of  architecture  (enterprise¬ 
wide  implementation),  clearer  definition  of  its  Objects,  as  well  as  its  limited  applicability 
to  certain  types  of  educational  material.  SCORM  cannot  meet  the  needs  of  higher 
education.  It  is  not  the  panacea  for  information  categorization  and  sharing. 

4.  Education  Versus  Training 

The  terms  “education”  and  “training”  are  frequently  used  interchangeably  without 
considering  their  actual  dissimilarities.  The  military  especially  often  treats  the  terms  as 
synonyms,  despite  the  fact  that  each  concept  requires  a  different  approach.  There  is 
indeed  a  distinction  between  education  and  training.  By  illustrating  SCORM’ s 
applicability  or  inapplicability,  the  distinction  can  be  better  examined.  While  education 
concerns  itself  with  the  gathering  of  facts,  concepts,  theories,  events,  and  principles, 
training  addresses  the  need  for  a  acquiring  a  specific  skill. 

5.  Content  Management 

Because  the  content  universe  offers  infinitely  diverse  material,  a  traditional 
Learning  Management  System  (LMS)  may  not  be  the  ultimate  solution  to  content 
management.  Learning  Content  Management  Systems  and  Content  Management 
Systems  complement  and  sometimes  even  substitute  for  an  LMS.  An  LMS  is  appropriate 
for  those  students/users/guests  that  are  enrolled/registered/invited  in  the  class.  However, 
individuals  who  are  interested  in  accessing  the  information  but  are  not  registered  cannot 
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have  easy  access  to  it,  nor  are  they  aware  of  its  existence.  These  individuals  do  not  need 
the  full  spectrum  of  services  within  an  LMS,  such  as  grades,  progress  evaluation, 
participation  records,  or  tracked  learning.  They  merely  want  the  benefit  of  access  to  the 
content. 

Most  professors  do  not  want  to  be  content  designers;  they  want  to  be  teachers. 
They  are  educators,  not  instructional  designers/technicians.  Their  expertise,  and  thus 
their  true  value,  lies  in  their  ability  to  breathe  life  into  concepts  and  theories.  A  CMS 
would  not  require  learning  new  technologies,  unlike  any  LCMS.  It  may  not  add  much 
value  to  implement  the  new  technologies  into  particular  courses.  A  CMS  would  allow 
sharing  of  information  created  by  the  technologies  already  known  to  the  professors.  Even 
if  the  conversion  process  were  simplified  through  templates  and  storyboards,  the  newly 
converted  material  would  still  be  shackled  and  caged  within  the  LCMS  that  created  it.  To 
extract  the  material,  the  institution  would  need  to  make  the  LCMS  available  to  everyone 
that  needed  access  to  the  content. 

This  thesis  proposes  a  dynamic  Content  Management  System  for  the  Naval 
Postgraduate  School.  It  addresses  the  first  user  requirement  of  SCORM:  make  content 
sharable.  A  CMS  offers  the  needed  level  of  granularity  to  organize  information  for  easy 
identification  and  extraction.  It  does  not  force  or  demand  such  a  fine  granularity  as  to 
remove  context  from  the  learning  content.  A  dynamic  CMS  would  allow  a  ‘keyword 
search’  of  content  in  addition  to  manual  navigation.  The  proposed  CMS  would  have  the 
ability  to  update  itself  dynamically  as  new  content  is  placed  within  it.  It  also  maintains 
the  integrity  of  the  many  relationships  in  order  to  maintain  the  context  of  the  material. 

C.  LESSONS  LEARNED 

1.  Web-Enabled  Databases 

Building  a  web-enabled  database  introduced  many  challenges.  Database  creation 
relies  upon  a  thorough  knowledge  of  web  page  creation  in  addition  to  database 
proficiency.  The  use  of  Macromedia’s  Dreamweaver  or  similar  web  authoring  programs 
was  often  complicated.  In  Dreamweaver,  once  an  artifact  is  created  with  functionalities, 
its  removal  becomes  rather  cumbersome.  Even  though  it  is  deleted,  the  corresponding 
code  or  pieces  of  it  remain  within  the  page.  Finding  these  remnants  is  not  a  simple  task 
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as  the  code  is  scattered  throughout  the  page.  Occasionally  this  forced  the  reconstruction 
of  the  page  from  scratch  because  all  of  the  little  shards  of  code  could  not  be  found  and 
extracted  from  the  page  to  allow  it  to  properly  function,  and  proved  an  inefficient  use  of 
time. 

Dreamweaver,  similar  to  other  programs,  has  reserved  characters  with  predefined 
functionalities.  This  can  be  likened  to  language  development  tools  that  have  reserved 
words.  In  one  example,  a  page  used  the  symbol  #  instead  of  the  word  “number.”  This 
minor  oversight  required  hours  of  investigation  to  reveal  that  the  pound  symbol  was 
actually  a  placeholder  and  could  not  be  used  to  represent  any  other  values. 

2.  Extensible  Markup  Language  (XML) 

Insufficient  resident  expertise  frustrated  the  exploration  and  development  of  a 
purely  XML  database.  Though  native  XML  databases  offer  the  advantage  of  speed  over 
traditional  databases,  it  is  too  new  to  be  of  practical  use  at  this  stage.  XML  is  not  just  an 
extension  of  HTML.  The  complexities  of  this  emerging  technology  require  extensive 
training.  A  year’s  worth  of  additional  courses  in  XML  or  XML-oriented  topics  would  be 
helpful  and  necessary  to  employ  the  rich  potential  of  XML.  It  is  beyond  the  focus  of  this 
thesis  to  expound  further  upon  the  strengths  and  weaknesses  of  employing  purely  XML 
databases. 

D.  FUTURE  RESEARCH 

1.  Blackboard 

Blackboard  can  incorporate  much  of  the  functionality  of  the  NFS  Content 
Management  System  (CMS).  Blackboard  can  provide  the  Learning  Management  System 
functionalities  such  as  discussion  boards  and  tracking  of  student  progress.  By 
incorporating  the  dynamic  search  capability  of  the  CMS  into  Blackboard,  content  can  be 
accessed  and  retrieved  by  all  users,  as  opposed  to  only  registered  guests  or  enrolled 
students  and  faculty. 

Through  working  in  concert  with  Blackboard,  the  CMS  prevents  a  great  deal  of 
duplication.  It  eliminates  the  need  for  redundant  use  of  server  space  for  the  same  content. 
The  opposite  suggestion  would  be  to  recommend  a  mirror  site. 
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2.  Automation  Versus  Hard-Coding 

Data  entry  into  the  CMS  at  this  stage  is  all  manual  and  is  accomplished  via  “hard- 
coding.”  Data  is  taken  from  its  current  location  or  format  and  manually  inserted  into 
specific  fields  within  the  CMS.  A  mechanism  can  be  established  and  developed  to  allow 
the  automatic  pull  of  information  into  the  database. 

An  area  that  may  benefit  from  automation  would  be  the  keyword  entry  to  enable 
search  of  content.  Instead  of  forcing  the  author  to  categorize  content  by  keyword,  a 
means  may  be  devised  to  allow  an  automatic  keyword  generator  by  performing  an 
algorithm  of  the  content.  The  algorithm  may  automatically  capture  title  words, 
subsection  headers,  and  words  in  the  first  sentence  of  paragraph.  Another  approach  to 
this  topic  would  be  a  more  dynamic  and  efficient  keyword  search  that  searches  the  entire 
content  as  opposed  to  prefabricated  keywords  that  may  not  truly  capture  or  represent  all 
the  elements  within  the  content. 

3.  Image  Mapping  &  Import 

The  manner  in  which  images  are  imported  into  the  CMS  is  inefficient.  First,  the 
image  must  be  manually  placed  within  the  images  folder  of  the  specific  class.  Second, 
the  path  to  the  image  must  be  inserted  within  the  source  code  of  the  HTML  page.  Simple 
typographical  errors  can  prevent  the  image  from  being  displayed. 

E.  CONCLUSION 

DoD’s  original  design  for  ADL  did  not  envision  a  complete  overhaul  of  the 
education  and  training  model.  Its  desire  was  to  enable  the  widest  dissemination  and 
sharing  of  the  greatest  amount  of  information  and  learning  as  practicable.  In  this  effort, 
the  quantity  and  quality  of  the  education  and  training  materials  were  not  to  suffer  at  the 
hands  of  technology  or  the  need  for  wider  distribution.  Along  the  way,  ADL  has  been 
met  with  technological,  cultural,  financial,  and  policy/regulatory  difficulties.  Having  this 
understanding  of  the  vision  behind  ADL  will  allow  a  deeper  understanding  of  the 
military’s  expectations  regarding  education  and  training  in  the  next  decade.  Moreover, 
this  thesis  suggests  the  military’s  perspective  on  some  of  the  differences  between 
education  and  training.  ADL  envisioned  an  environment  that  embraced  the  spirit  of 
education  and  the  technologies  to  further  and  enhance  it. 
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SCORM’s  basic  idea  is  to  create  once  and  use  often.  With  this  guiding  principle 
in  mind,  the  focus  at  this  stage  of  SCORM  implementation  at  NFS  should  be  to  first 
foster  a  sense  of  sharing.  Rather  than  invest  millions  into  new  technologies,  NFS  should 
better  employ  technologies  it  already  owns.  Course  conversion  is  one  of  the  major 
challenges  in  implementing  SCORM.  Instead  of  spending  countless  hours  designing  new 
material  that  may  or  may  not  be  SCORM-conformant,  or  putting  the  courses  through  a 
conversion  process,  why  not  use  that  which  has  already  been  created  and  is  ready  for 
sharing?  SCORM  is  too  engrossed  in  technology  and  insufficiently  so  on  actual 
education.  The  Naval  Fostgraduate  School  Content  Management  System  undoubtedly 
and  unapologetically  deviates  from  SCORM’s  technology-based  approach  to  better  focus 
on  information  dissemination  and  knowledge  sharing. 
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APPENDIX  B.  CONTENT  MANAGEMENT  SYSTEM  ENTITY- 
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APPENDIX  C.  CONTENT  MANAGEMENT  SYSTEM  DATABASE 

SCHEMA  WITH  ATTRIBUTES 


61 


THIS  PAGE  INTENTIONALLY  LEFT  BLANK 


62 


APPENDIX  D.  CONTENT  MANAGEMENT  SYSTEM 
RELATIONSHIP  DIAGRAM 
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APPENDIX  E.  CONTENT  MANAGEMENT  SYSTEM  XML  CODE 


<?xml  version="1.0"  encoding="UTF-8"  ?> 

-  <!- 

LCDR  Ilias  Zacharopoulos ,  LT  Mohammad  Kohistany 

Description:  This  is  an  XML  adaptation  of  the  Content  Management 
System  database  depicting  one  section  within  the  IS3502  course. 

--> 

<Course  courseCode="is3502"  courseNanne="Networks"  instructor="Dale, 
Courtney"  > 

<TableOfContents> 

< Subject  SubjectTitle= "Syllabus"  /> 

<Subject  SubjectTitle="Chapter  01:  Introduction  to  Networking"> 

<Topic  TopicTitle="Elements  Common  to  All  Server-Based  Networks'^ 

<Subsection  subsectionTitle="Networking  Basics"> 

![CDATA[ 

<HTML> 

<HEAD> 

<  TITLE  > 

<b> Elements  Common  to  All  Server-Based  Networks</b> 

</TITLE> 

</HEAD> 

<B0DY> 

<P> 

<b> Networking  Basics</b> 

</p> 

<p> Before  you  can  begin  talking  about  networking  it  is  vital  that  you 
understand  the  definition.  A  computer  Network  at  the  most  basic  level  is 
two  or  more  computers  and/or  other  devices  that  are  connected  by  some 
type  of  transmission  media.  This  media  will  usually  be  either  cabling  or 
wire;  however,  wireless  networks  are  growing  in  popularity.  The  biggest 
advantage  to  using  a  computer  network  is  the  ease  of  sharing  information 
between  computers.  Another  great  advantage  of  networking  is  the  ability  to 
centrally  administer  the  hardware  and  software.  Additionally  computers 
may  be  connected  to  mainframe  computers,  modems,  CD-ROMs,  printers, 
plotters,  fax  machines,  or  phone  systems.  Computers  on  any  network  may 
communicate  through  wires,  cables,  radio  waves,  and  infrared  or  satellite 
links.</p> 

<P> 

The  simplest  form  of  a  network  in  use  today  is  a 
<b>peer-to-peer</b> 

network.  A  peer-to-peer  network  is  not  normally  used  when  there  is  the 
need  for  more  than  10  computers  to  be  connected  to  the  network.  When 
using  peer-to-peer  communication  each  computer  is  able  to  talk  directly  to 
other  computers  through  one  cable;  this  means  that  no  single  computer  on 
the  network  has  more  authority  than  any  other  computer  on  the  network.  It 
is  important  to  realize  that  each  computer  in  a  peer-to-peer  network  can  act 
as  a  client  or  a  server.  In  a  peer-to-peer  network  each  computer  user  acts 
as  a  network  administrator  for  his  or  her  own  computer.  For  all  intents  and 
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purposes  this  type  of  a  network  should  not  be  used  if  security  is  a  concern 
of  the  company.  It  is  also  significant  to  note  that  the  more  computers  that 
are  added  to  a  peer-to-peer  network,  the  slower  the  network  will  operate. 

</p> 

<P> 

<inng  src="Images/is3502_images/fig01_02_p_to_p.gif"  /> 

</p> 

<P> 

A 

<b>local  area  network  (l-AN)</b> 

is  a  network  of  computers  and  other  devices  that  are  confined  to  a  relatively 
small  area,  such  as  a  building  or  an  office.  LANs  can  also  in  some  cases  be 
connected  throughout  multiple  buildings.  In  general,  the  term  LAN  can  be 
used  unless  you  have  crossed  a  main  thoroughfare.  A  peer-to-peer  network 
is  an  example  of  a  simple  LAN.  More  complex  LANs  are  server-based  and 
rely  on  a  file  server.  These  types  of  networks  are  commonly  called 
client/server  networks. 

</p> 

<P> 

A  network  that  connects  two  or  more  geographically  distinct  LANs  is  labeled 
a 

<b>wide  area  network  (WAN)</b> 

.  WANs  that  connect  LANs  across  a  city  or  a  campus  (generally  30  miles  or 
less)  are  sometimes  called  metropolitan  networks,  or  MANs.  It  is  worth 
mentioning  that  MANs  and  WANs  use  the  same  type  of  technology. 

</p> 

</B0DY> 

</HTML> 

]] 

</Subsection> 

</Topic> 

<Topic  TopicTitle="Networking  Elements"  /> 

<Topic  TopicTitle="How  Networks  are  Used"  /> 

<Topic  TopicTitle="Mastering  the  Technical  Challenges"  /> 

<Topic  TopicTitle="Developing  Your  'Soft  Skills'"  /> 

<Topic  TopicTitle="Pursuing  a  Certification'"  /> 

<Topic  TopicTitle="Finding  a  Job  in  Networking"  /> 

<Topic  TopicTitle="Joining  Professional  Organizations"  /> 

</Subject> 

<Subject  SubjectTitle="Chapter  02:  Networking  Standards  and  the  OSI  Model"  /> 
<Subject  SubjectTitle="Chapter  03:  Network  Protocols"  /> 

<Subject  SubjectTitle="Chapter  04:  Transmission  Basics  and  Networking  Med"  /> 
<Subject  SubjectTjtle="Chapter  05:  Physical  and  Logical  Topologies"  /> 

<Subject  SubjectTitle="Chapter  06:  Networking  Hardware"  /> 

<Subject  SubjectTitle="Chapter  07:  WANs  and  Remote  Connectivity"  /> 

<Subject  SubjectTjtle="Chapter  08:  Network  Operating  Systems  &  Windows"  /> 
<Subject  SubjectTitle="Chapter  10:  Networking  with  UNIX"  /> 

<Subject  SubjectTitle="Chapter  11:  Networking  With  TCP/IP  &  the  Internet"  /> 
<Subject  SubjectTitle="Chapter  12:  Troubleshooting  Network  Problems"  /> 
<Subject  SubjectTitle="Chapter  13:  Maintaining  and  Upgrading  a  Network"  /> 
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<Subject  SubjectTjtle="Chapter  14:  Ensuring  Integrity  and  Avaiiabiiity"  /> 
<Subject  SubjectTitle="Chapter  15:  Network  Security"  /> 

<Subject  SubjectTjtle="Chapter  16:  Managing  Network  Design  &  Impiement"  /> 

</TableOfContents> 

</Course> 
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APPENDIX  F.  CONTENT  MANAGEMENT  SYSTEM  CODE 


Number 

File  Name 

Page  # 

1. 

Confirm  Image. asp 

3 

2. 

CourseRequest.asp 

10 

3. 

DLStylesheet.css 

14 

4. 

Form  Add  New  Course. asp 

15 

5. 

Form  Add  Subject. asp 

22 

6. 

Form  Add  Topic. asp 

30 

7. 

F  ormCourseMaster .  asp 

37 

8. 

Form  Delete  Category.asp 

44 

9. 

FormDeleteCourse.asp 

51 

10. 

Form  Delete  Image. asp 

58 

11. 

Form  Delete  Subject.asp 

65 

12. 

Form  Delete  Subsection.asp 

72 

13. 

Form  Delete  Teach.asp 

79 

14. 

F  ormDeleteT  opic .  asp 

86 

15. 

Form  Delete  User,  asp 

93 

16. 

F  ormImageMaster .  asp 

101 

17. 

Form  Input  Subsection.asp 

108 

18. 

Form  Insert  Category.asp 

117 

19. 

F  ormlnsertimage.  asp 

124 

20. 

Form  Insert  Teach.asp 

132 

21. 

F  ormMasterAdmin.  asp 

140 

22. 

F  ormMasterCategory .  asp 

145 

23. 

F orm  Master  T each. asp 

150 

24. 

F  ormMasterUser .  asp 

156 

25. 

F orm  Subj  ect  Master .  asp 

161 

26. 

FormSubsectionMaster.asp 

168 

27. 

F  orrnT  opicMaster .  asp 

175 

28. 

F  ormUpdateCategory .  asp 

182 

29. 

FormUpdateCourse.asp 

190 

30. 

F orm  Update  Image .  asp 

198 

31. 

F  ormUpdateSubj  ect.  asp 

206 

32. 

F  ormUpdateTeach.asp 

213 

33. 

F  ormUpdateT  opic .  asp 

220 

34. 

F  ormUpdateU  ser .  asp 

229 

35. 

HomePage.asp 

237 

36. 

ImageDetailVisitor.asp 

240 

37. 

Image  Result.asp 

244 

38. 

ImageResultAllNps .  asp 

248 

39. 

ImagesResultVisitor.asp 

253 

40. 

Key  wordRequest.  asp 

258 

41. 

Key  wordResult.  asp 

262 
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Number 

File  Name 

Page  # 

42. 

login,  asp 

274 

43. 

loginfailed.asp 

279 

44. 

registration  failed.asp 

282 

45. 

Search.asp 

285 

46. 

Subject  Request.asp 

288 

47. 

SubsectionRequestNP  S .  asp 

292 

48. 

SubsectionResults.asp 

296 

49. 

Test  1  Confirm,  asp 

303 

50. 

Template.asp 

310 

51. 

TestFormUpdateSubsection.asp 

313 

52. 

T  opicRequest .  asp 

321 

53. 

U  serInputF  orm.  asp 

325 
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1.  Confirm_Image.asp 


<%@LANGUAGE=" VBSCRIPT"  CODEPAGE='T252"%> 

<!— #include  file="Connections/conn_DistanceLeaming.asp"  — > 

<% 

'  ***  Edit  Operations:  declare  variables 

Dim  MM_editAction 
Dim  MM_abortEdit 
Dim  MMeditQuery 
Dim  MM_editCmd 

Dim  MMeditConnection 
Dim  MMeditTable 
Dim  MMeditRedirectUrl 
Dim  MM_editColumn 
Dim  MM_recordId 

Dim  MM  fleldsStr 
Dim  MMcolumnsStr 
Dim  MM  fields 
Dim  MMcolumns 
Dim  MMtypeArray 
Dim  MMformVal 
Dim  MM_delim 
Dim  MM_altVal 
Dim  MM_emptyVal 
Dim  MM_i 

MM_editAction  =  CStr(Request.ServerVariables("SCRIPT_NAME")) 

If  (Request.QueryString  <>  "")  Then 

MM_edit Action  =  MM_edit Action  &  "?"  & 

Server.HTMLEncode(Request.QueryString) 

End  If 

'  boolean  to  abort  record  edit 
MM_abortEdit  =  false 

'  query  string  to  execute 
MM_editQuery  =  "" 

%> 

<% 

'  ***  Insert  Record:  set  variables 
If  (CStr(Request("MM_insert"))  =  "forml")  Then 
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MMeditConnection  =  MM_conn_DistanceLeaming_STRrNG 
MM_editTable  =  "Subsection_Has_Graphics" 

MM_editRedirectUrl  =  "Form_Image_Master.asp" 

MM_fieldsStr  =  "subsectionid|value|graphicid|value" 

MM_columnsStr  =  "subsectionid|none, none, NULL|graphicid|none, none, NULL" 

'  create  the  MM_fields  and  MM_columns  arrays 
MM_fields  =  Split(MM_fieldsStr,  "I") 

MM_columns  =  Split(MM_columnsStr,  "|") 

'  set  the  form  values 

For  MM_i  =  LBound(MM_fields)  To  UBound(MM_fields)  Step  2 
MM_fields(MM_i+l)  =  CStr(Request.Form(MM_fields(MM_i))) 

Next 

'  append  the  query  string  to  the  redirect  URL 

If  (MM_editRedirectUrl  <>  ""  And  Request.QueryString  <>  "")  Then 
If  (InStr(I,  MM_editRedirectUrl,  "?",  vbTextCompare)  =  0  And 

Request.QueryString  <>  "")  Then 

MM_editRedirectUrl  =  MM_editRedirectUrl  &  "?"  &  Request.QueryString 
Else 

MM_editRedirectUrl  =  MM_editRedirectUrl  &  &  Request.QueryString 

End  If 
End  If 

End  If 

%> 

<% 

'  ***  Insert  Record:  construct  a  sql  insert  statement  and  execute  it 

Dim  MMtable  Values 

Dim  MMdb  Values 

If  (CStr(Request("MM_insert"))  <>  "")  Then 

'  create  the  sql  insert  statement 
MMjable  Values  = "" 

MM_db  Values  = "" 

For  MM_i  =  LBound(MM_fields)  To  UBound(MM_fields)  Step  2 
MM_formVal  =  MM_fields(MM_i+l) 

MM_typeArray  =  Split(MM_columns(MM_i+l),",") 

MM_delim  =  MM_typeArray(0) 

If  (MM_delim  =  "none")  Then  MM_delim  =  "" 

MM_altVaI  =  MM_typeArray(I) 

If  (MM_altVal  =  "none")  Then  MM_altVal  =  "" 

MM_emptyVal  =  MM_typeArray(2) 
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If  (MM_emptyVal  =  "none")  Then  MM_emptyVal  =  "" 

If  (MM  formVal  =  "")  Then 
MM_formVaI  =  MM_emptyVaI 
Else 

If  (MM_altVaI  <>  "")  Then 
MM_fomiVal  =  MM_altVal 
Elself  (MM_delim  =  Then  '  escape  quotes 
MM_fomiVal  =  "'"  &  Replace(MM_fomiVal, 

Else 

MM_fomiVal  =  MM_delini  +  MM_fomiVal  +  MM_delim 
End  If 
End  If 

If  (MM_i  <>  LBound(MM_fieIds))  Then 
MM_table Values  =  MM_table Values  & 

MM_db Values  =  MM_dbValues  &  "," 

End  If 

MM_tabIeValues  =  MM_table Values  &  MM_coIumns(MM_i) 

MM_db Values  =  MM_db Values  &  MM_fomiVal 
Next 

MM_editQuery  =  "insert  into  "  &  MM_editTable  &  "  ("  &  MM_tableValues  & 
")  values  ("  &  MM_dbValues  &  ")" 

If  (Not  MM_abortEdit)  Then 
'  execute  the  insert 

Set  MM_editCnid  =  Server.  CreateObject("ADODB. Command") 
MMeditCmd.ActiveConnection  =  MMeditConnection 
MMeditCmd.CommandText  =  MMeditQuery 
MM_editCmd.Execute 
MM_editCmd.ActiveConnection.Close 

If  (MM_editRedirectUrl  <>  "")  Then 
Response.Redirect(MM_editRedirectUrI) 

End  If 
End  If 

End  If 

%> 

<% 

Dim  rsmaxGraphicid _ MMColParam 

rs_maxGraphicid _ MMColParam  =  "izacharo" 

If  (Session("MM_UserName")  <>  "")  Then 

rs_maxGraphicid _ MMColParam  =  Session("MM_UserName") 

End  If 
%> 

<% 

Dim  rs  maxGraphicid 
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Dim  rsmaxGraphicidnumRows 

Set  rsmaxGraphicid  =  Server.CreateObject("ADODB.Recordset") 
rs_maxGraphicid.ActiveConnection  =  MMconnDistanceLeamingSTRING 
rs  maxGraphicid. Source  =  "SELECT  graphicid  FROM  Graphic  WHERE 
graphicid=(SELECT  MAX(graphicid)  FROM  Graphic  WHERE  author  =  + 

Replace(rs_maxGraphicid _ MMColParam,  """)  + 

rs_maxGraphicid.CursorType  =  0 
rs_maxGraphicid.CursorLocation  =  2 
rs_maxGraphicid.LockType  =  1 
rs_maxGraphicid.Open() 

rs_maxGraphicid_numRows  =  0 

%> 

<!DOCTYPE  html  PUBLIC  "-//W3C//DTD  XHTML  1.0  Transitional//EN" 
"http://www.w3  .org/TR/xhtml  1 /DTD/xhtml  1  -transitional.dtd"> 

<html  xmlns="http  ://www. w3  .org/ 1 999/xhtml"> 

<head> 

<title>Distance  Learning:  Confirm  Image</title> 

<meta  http-equiv="Content-Type"  content="text/html;  charset=iso-8859-l"  /> 
<link  href="DLStylesheet.css"  rel="stylesheef '  type="text/css"  /> 

<style  type="text/css"> 

<!- 
a:  link  { 

color:  #CC3300; 

} 

a:visited  { 

color:  #CC3399; 

} 

a:hover  { 

color:  #000066; 

} 

a:  active  { 

color:  #339900; 

} 

.  style  1  { 

color:  #FF0000; 
font-weight:  bold; 

} 

— > 

</style></head> 

<body> 

<table  width="95%"  height="214"  border="0"  align="center"  cellpadding="3" 
cellspacing="0"> 

<tr> 
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border="0"  align="left' 


<td  height="109"><table  width="100%" 
cellpadding="3"  cellspacing="0"  bgcolor="#DEDEBC"> 

<tr> 

<td  width="88%"  align="  center"  valign="middle" 

bgcolor="#DEDEBC"><img  src="Images/nps_banner.gif'  width="447"  height="97"  /> 

</td> 

</tr> 

</table></td> 

</tr> 

<tr> 

<td  height="50"><table  width="72%"  border="0"  align="center" 
cellpadding="3"  cellspacing="0"  bordercolor="#F6F6F3"> 

<tr> 

<td  width="14%"  bgcolor="#DEDEBC"><object 

classid="clsid:D27CDB6E-AE6D-llcf-96B8-444553540000" 

codebase="http://download.macromedia.coin/pub/shockwave/cabs/flash/swflash.cab#ver 
sion=5, 0,0,0"  width="103"  height="24"> 

<param  name="movie"  value="button2.swf'  /> 

<param  name="quality"  value="high"  /> 

<param  name="bgcolor"  value="#DEDEBC"  /> 

<embed  src="button2.swf'  quality="high" 

pluginspage="http://www.macromedia.coin/shockwave/download/index.cgi?Pl_Prod_Ve 
rsion=ShockwaveFlash"  type="application/x-shockwave-flash"  width="103"  height="24" 
bgcolor="#DEDEBC"></embed> 

</object></td> 

<td  width="14%"  bgcolor="#DEDEBC"><object 

classid="clsid:D27CDB6E-AE6D-llcf-96B8-444553540000" 

codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#ver 
sion=5,0,0,0"  name=" Search"  width="100"  height="23"  id="Search"> 

<param  name="movie"  value="buttonl.swf'  /> 

<param  name="quality"  value="high"  /> 

<param  name="bgcolor"  value="#DEDEBC"  /> 

<embed  src="buttonl.swf'  width="100"  height="23"  quality="high" 
pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?Pl_Prod_Ve 
rsion=ShockwaveFlash"  type="application/x-shockwave-flash"  bgcolor="#DEDEBC" 
name="  Search"></embed> 

</object></td> 

<td  width="14%"  bgcolor="#DEDEBC"><object 

classid="clsid:D27CDB6E-AE6D-llcf-96B8-444553540000" 

codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#ver 
sion=5,0,0,0"  width="100"  height="23"> 

<param  name="movie"  value="button3.swf'  /> 

<param  name="quality"  value="high"  /> 

<param  name="bgcolor"  value="#DEDEBC"  /> 

<embed  src="button3.swf'  quality="high" 

pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?Pl_Prod_Ve 
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rsion=ShockwaveFlash"  type="application/x-shockwave-flash"  width="100"  height="23" 
bgcolor="#DEDEBC"></embed> 

</object></td> 

<td  width="14%"  bgcolor="#DEDEBC"><object 

classid="clsid:D27CDB6E-AE6D-llcf-96B8-444553540000" 

codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#ver 
sion=5, 0,0,0"  width="100"  height="23"> 

<param  name="movie"  value="button4.swf'  /> 

<param  name="quality"  value="high"  /> 

<param  name="bgcolor"  value="#DEDEBC"  /> 

<embed  src="button4.swf'  quality="high" 

pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?Pl_Prod_Ve 
rsion=ShockwaveFlash"  type="application/x-shockwave-flash"  width="100"  height="23" 
bgcolor="#DEDEBC"></embed> 

</object></td> 

<td  width="14%"  bgcolor="#DEDEBC"><object 

classid="clsid:D27CDB6E-AE6D-llcf-96B8-444553540000" 

codebase="htq)://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#ver 
sion=5,0,0,0"  width="103"  height="24"> 

<param  name="movie"  value="button5.swf'  /> 

<param  name="quality"  value="high"  /> 

<param  name="bgcolor"  value="#DEDEBC"  /> 

<embed  src="button5.swf'  quality="high" 

pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?Pl_Prod_Ve 
rsion=ShockwaveFlash"  type="application/x-shockwave-flash"  width="103"  height="24" 
bgcolor="#DEDEBC"></embed> 

</object></td> 

</tr> 

</table></td> 

</tr> 

<tr> 

<td><hr  />  <h3  align="center">  Confirm  Image  Insertion  </h3> 

<hr/> 

<form  name="formI"  id="formI"  method="POST" 

action="<%=MM_editAetion%>"> 

<table  width="50%"  border="I"  align="eenter"  eellpadding="3" 
cellspacing="0"> 

<tr> 

<td  width="80%"><input  name="subsectionid"  type="hidden" 
id="subseetionid"  value="<%=  Request.QueryString("subseetionid")  %>"  /> 

<input  name="graphieid"  type="hidden"  id="graphieid" 
value="<%=(rs_maxGraphieid.Fields.Item("graphicid").VaIue)%>"  /> 

<span  elass="styleI">***Please  Comfirm  your  Image 
Insertion*  **</span>  </td> 

<td  width="20%"><input  type="submit"  name="Submit" 
value="  Confirm"  /></td> 
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</tr> 

</table> 


<input  type="hidden"  name="MM_insert"  value="forml"> 
</form>  <p  align="left">&nbsp;</p></td> 

</tr> 

<tr> 

<td>&nbsp;  </td> 

</tr> 

</table> 

<p>&nbsp;</p> 

<p>&nbsp;</p> 

<^ody> 

</html> 

<% 

rs_maxGraphicid.Close() 

Set  rs_maxGraphicid  =  Nothing 

%> 
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2.  Course_Request.asp 


<%@LANGUAGE=" VBSCRIPT"  CODEPAGE='T252"%> 

<!— #include  file="Connections/conn_DistanceLeaming.asp"  — > 

<% 

Dim  searchMethod 

searchMethod  =  Request.QueryString("radiobutton") 

If  searchMethod  =  1  Then 
Response.Redirect("Keyword_Request.asp") 

End  If 

%> 

<% 

Dim  Courses 

Dim  Courses_numRows 

Set  Courses  =  Server. CreateObject("ADODB. Recordset") 
Courses.ActiveConnection  =  MMconnDistanceLearningSTRING 
Courses. Source  =  "SELECT  courseid,  courseCode,  courseName  FROM  Course 
ORDER  BY  courseCode  ASC" 

Courses. CursorType  =  0 
Courses. CursorLocation  =  2 
Courses.LockType  =  1 
Courses. Open() 

CoursesnumRows  =  0 

%> 

<!DOCTYPE  html  PUBLIC  "-//W3C//DTD  XHTML  1.0  Transitional//EN" 
"http://www.w3  .org/TR/xhtml  1/DTD/xhtml  1  -transitional.dtd"> 

<html  xmlns="http://www.w3.org/1999/xhtml"> 

<head> 

<title>Distance  Learning:  Course  Request</title> 

<meta  http-equiv="Content-Type"  content="text/html;  charset=iso-8859-l"  /> 
<link  href="DLStylesheet.css"  rel="stylesheet"  type="text/css"  /> 

</head> 

<body> 

<table  width="95%"  height="214"  border="0"  align="center"  cellpadding="3" 
cellspacing="0"> 

<tr> 

<td  height="109"><table  width='T00%"  border="0"  align="left" 
cellpadding="3"  cellspacing="0"  bgcolor="#DEDEBC"> 

<tr> 
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<td  width="88%"  align="  center"  valign="middle" 

bgcolor="#DEDEBC"><img  sre="Images/nps_banner.gif'  width="447"  height="97"  /> 

</td> 

</tr> 

</table></td> 

</tr> 

<tr> 

<td  height="50"><table  width="72%"  border="0"  align="eenter" 
cellpadding="3"  eellspaeing="0"  bordereolor="#F6F6F3"> 

<tr> 

<td  width="14%"  bgeolor="#DEDEBC"><object 

classid="elsid:D27CDB6E-AE6D-llcf-96B8-444553540000" 

codebase="http://download.macromedia.eom/pub/shoekwave/cabs/flash/swflash.eab#ver 
sion=5, 0,0,0"  width="103"  height="24"> 

<param  name="movie"  value="button2.swf'  /> 

<param  name="quality"  value="high"  /> 

<param  name="bgcolor"  value="#DEDEBC"  /> 

<embed  src="button2.swf'  quality="high" 

pluginspage="http://www.maeromedia.com/shockwave/download/index.cgi?Pl_Prod_Ve 
rsion=ShockwaveFlash"  type="application/x-shockwave-flash"  width="103"  height="24" 
bgcolor="#DEDEBC"></embed> 

</object></td> 

<td  width="14%"  bgeolor="#DEDEBC"><object 

classid="elsid:D27CDB6E-AE6D-llcf-96B8-444553540000" 

codebase="http://download.macromedia.eoin/pub/shoekwave/eabs/flash/swflash.eab#ver 
sion=5,0,0,0"  name="Seareh"  width="100"  height="23"  id="Seareh"> 

<param  name="movie"  value="buttonl.swf'  /> 

<param  name="quality"  value="high"  /> 

<param  name="bgcolor"  value="#DEDEBC"  /> 

<embed  src="buttonl.swf'  width="100"  height="23"  quality="high" 
pluginspage="http://www.maeromedia.coin/shockwave/download/index.cgi?Pl_Prod_Ve 
rsion=ShockwaveFlash"  type="application/x-shockwave-flash"  bgcolor="#DEDEBC" 
name="  Seareh"></embed> 

</object></td> 

<td  width="14%"  bgeolor="#DEDEBC"><object 

classid="elsid:D27CDB6E-AE6D-llcf-96B8-444553540000" 

codebase="http://download.macromedia.eoin/pub/shoekwave/eabs/flash/swflash.eab#ver 
sion=5,0,0,0"  width="100"  height="23"> 

<param  name="movie"  value="button3.swf'  /> 

<param  name="quality"  value="high"  /> 

<param  name="bgcolor"  value="#DEDEBC"  /> 

<embed  src="button3.swf'  quality="high" 

pluginspage="http://www.maeromedia.coin/shockwave/download/index.cgi?Pl_Prod_Ve 
rsion=ShockwaveFlash"  type="application/x-shockwave-flash"  width="100"  height="23" 
bgcolor="#DEDEBC"></embed> 

</object></td> 
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<td  width="14%"  bgcolor="#DEDEBC"><object 

classid="clsid:D27CDB6E-AE6D-llcf-96B8-444553540000" 

codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#ver 
sion=5, 0,0,0"  width="100"  height="23"> 

<param  name="movie"  value="button4.swf'  /> 

<param  name="quality"  value="high"  /> 

<param  name="bgcolor"  value="#DEDEBC"  /> 

<embed  src="button4.swf'  quality="high" 

pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?Pl_Prod_Ve 
rsion=ShockwaveFlash"  type="application/x-shockwave-flash"  width="100"  height="23" 
bgcolor="#DEDEBC"></embed> 

</object></td> 

<td  width="14%"  bgcolor="#DEDEBC"><object 

classid="clsid:D27CDB6E-AE6D-llcf-96B8-444553540000" 

codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#ver 
sion=5,0,0,0"  width="103"  height="24"> 

<param  name="movie"  value="button5.swf'  /> 

<param  name="quality"  value="high"  /> 

<param  name="bgcolor"  value="#DEDEBC"  /> 

<embed  src="button5.swf'  quality="high" 

pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?Pl_Prod_Ve 
rsion=ShockwaveFlash"  type="application/x-shockwave-flash"  width="103"  height="24" 
bgcolor="#DEDEBC"></embed> 

</object></td> 

</tr> 

</table></td> 

</tr> 

<tr> 

<td><hr  />  <h3  align="center">Course  Request</h3> 

<hr  />  </td> 

</tr> 

<tr> 

<td><form  name="frmCourse"  id="frmCourse"  method="post" 
action="  Subj  ect_Request.asp"> 

<div  align="center"><br  /> 

Select  Course: 

<select  name="courseid"  id="courseid"> 

<% 

While  (NOT  Courses.EOF) 

%> 

<option 

value="<%=(Courses.Fields.Item("courseid").Value)%>"><%=(Courses.Fields.ltem("co 

urseCode").Value)%></option> 

<% 

Courses .  MoveN  ext() 

Wend 
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If  (Courses.CursorType  >  0)  Then 
Courses .  MoveF  irst 
Else 

Courses. Requery 
End  If 

%> 

</seleet> 

<input  type="subniit"  nanie=" Submit"  value=" Submit"  /> 
</div> 

</form></td> 

</tr> 

</table> 

<p>&nbsp;</p> 

<p>&nbsp;</p> 

</body> 

</html> 

<% 

Courses. Close() 

Set  Courses  =  Nothing 

%> 
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3.  DLStylesheetcss 


body  { 

font- family:  Verdana,  Arial,  Helvetica,  sans-serif; 
font-size:  lOpt; 
color:  #000000; 
background-color:  #DEDEBC; 

} 

h3  { 

font-size:  16pt; 
color:  #3300CC; 
font-weight:  bold; 

font-family:  "Times  New  Roman",  Times,  serif; 

} 

hi  { 

font-size:  24pt; 
color:  #FF0000; 
font-weight:  bold; 

} 

h2  { 

font-size:  18pt; 
font-weight:  bold; 
color:  #FFFF00; 

} 
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4.  Form_Add_New_Course.asp 

<%@LANGUAGE=" VBSCRIPT"  CODEPAGE='T252"%> 

<!— #include  file="Connections/conn_DistanceLeaming.asp"  — > 

<% 

'  ***  Restrict  Access  To  Page:  Grant  or  deny  access  to  this  page 
MM_authorizedErsers="admin, professor" 

MM_authFailedURL="login.asp" 

MM_grantAccess=false 
If  Session("MM_Usemame")  <>  ""  Then 
If  (false  Or  CStr(Session("MM_UserAuthorization"))="")  Or  _ 

(InStr(  1  ,MM_authorizedUsers,Session("MM_UserAuthorization"))>=  1 ) 

Then 

MM_grantAccess  =  true 
End  If 
End  If 

If  Not  MM_grantAccess  Then 
MM_qsChar  =  "?" 

If  (InStr(l,MM_authFailedURL,"?")  >=  1)  Then  MM_qsChar  =  "&" 
MM_referrer  =  Request.  ServerVariables("URL") 

if  (Len(Request. Query StringO)  >  0)  Then  MM_referrer  =  MM_referrer  &  "?"  & 
Request.QueryStringO 

MM_authFailedURL  =  MM_authFailedURL  &  MM_qsChar  &  "accessdenied=" 
&  Server.URLEncode(MM_referrer) 

Response.Redirect(MM_authFailedURL) 

End  If 

%> 

<% 

'  ***  Edit  Operations:  declare  variables 

Dim  MMeditAction 
Dim  MMabortEdit 
Dim  MMeditQuery 
Dim  MM_editCmd 

Dim  MM_editConnection 
Dim  MM_editTable 
Dim  MMeditRedirectUrl 
Dim  MMeditColumn 
Dim  MM_recordId 

Dim  MM  fleldsStr 
Dim  MMcolumnsStr 
Dim  MMfields 
Dim  MM_columns 
Dim  MM_typeArray 
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Dim  MMformVal 
Dim  MMdelim 
Dim  MMaltVal 
Dim  MM_emptyVal 
Dim  MM_i 

MM_editAction  =  CStr(Request.ServerVariables("SCRIPT_NAME")) 

If  (Request.QueryString  <>  "")  Then 

MM_edit Action  =  MM_edit Action  &  "?"  & 

Server.HTMLEncode(Request.QueryString) 

End  If 

'  boolean  to  abort  record  edit 
MM_abortEdit  =  false 

'  query  string  to  execute 
MM_editQuery  =  "" 

%> 

<% 

'  ***  Insert  Record:  set  variables 

If  (CStr(Request("MM_insert"))  =  "forml")  Then 

MMeditConnection  =  MMcormDistanceLeamingSTRING 
MM_editTable  =  "Course" 

MMeditRedirectUrl  =  "Form_Course_Master.asp" 

MM_fieldsStr  =  "courseCode|value|courseName|value|courseDescription|value" 
MM_columnsStr  = 

"courseCodel', none, "|courseName|', none, "|courseDescription|', none,"" 

'  create  the  MM_fields  and  MM_columns  arrays 
MM_fields  =  Split(MM_fieldsStr,  "I") 

MM_columns  =  Split(MM_columnsStr,  "|") 

'  set  the  form  values 

For  MM_i  =  LBound(MM_fields)  To  UBound(MM_fields)  Step  2 
MM_fields(MM_i+l)  =  CStr(Request.Form(MM_fields(MM_i))) 

Next 

'  append  the  query  string  to  the  redirect  URL 

If  (MM  editRedirectUrl  o  ""  And  Request.QueryString  o  "")  Then 
If  (InStr(l,  MM_editRedirectUrl,  "?",  vbTextCompare)  =  0  And 

Request.QueryString  <> "")  Then 

MM_editRedirectUrl  =  MM_editRedirectUrl  &  "?"  &  Request.QueryString 
Else 

MM_editRedirectUrl  =  MM_editRedirectUrl  &  "&"  &  Request.QueryString 


84 


End  If 
End  If 

End  If 

%> 

<% 

'  ***  Insert  Record:  construct  a  sql  insert  statement  and  execute  it 

Dim  MMtable  Values 
Dim  MMdbValues 

If  (CStr(Request("MM_insert"))  <>  "")  Then 

'  create  the  sql  insert  statement 
MMjableValues  = 

MM_db  Values  = "" 

For  MM_i  =  LBound(MM_fields)  To  UBound(MM_fields)  Step  2 
MM_formVal  =  MM_fields(MM_i+l) 

MM_typeArray  =  Split(MM_columns(MM_i+l),",'') 

MM_delim  =  MM_typeArray(0) 

If  (MM_deIim  =  "none")  Then  MM_delim  =  "" 

MM_altVal  =  MM_typeArray(l) 

If  (MM_altVal  =  "none")  Then  MM_altVal  =  "" 

MM_emptyVal  =  MM_typeArray(2) 

If  (MM_emptyVal  =  "none")  Then  MM_emptyVal  =  "" 

If  (MM_formVal  =  "")  Then 
MM_formVal  =  MM_emptyVal 
Else 

If  (MM_altVal  <>  "")  Then 
MM_formVal  =  MM_aItVaI 
Elself  (MM_delim  =  ""')  Then  '  escape  quotes 
MM_formVaI  =  "'"  &  RepIace(MM_formVaI, ""',""")  &  ""' 

Else 

MM_formVal  =  MM_delim  +  MM_formVal  +  MM_delim 
End  If 
End  If 

If  (MM_i  <>  LBound(MM_fields))  Then 
MM_tableVaIues  =  MM_table Values  & 

MM_db Values  =  MM_dbValues  &  "," 

End  If 

MM_table Values  =  MM_tableValues  &  MM_columns(MM_i) 

MM_db Values  =  MM_db Values  &  MM_formVal 
Next 

MM_editQuery  =  "insert  into  "  &  MM_editTable  &  "  ("  &  MM_table Values  & 
")  values  ("  &  MM_db Values  &  ")" 
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If  (Not  MM_abortEdit)  Then 
'  execute  the  insert 

Set  MM_editCmd  =  Server.CreateObject("ADODB. Command") 
MMeditCmd.ActiveConnection  =  MMeditConnection 
MMeditCmd.CommandText  =  MMeditQuery 
MM_editCmd.  Execute 
MMeditCmd.ActiveConnection.Close 

If  (MM_editRedirectUrl  <>  "")  Then 
Response.Redirect(MM_editRedirectUrl) 

End  If 
End  If 

End  If 

%> 

<!DOCTYPE  html  PUBLIC  "-//W3C//DTD  XHTML  1.0  Transitional//EN" 
"http://www.w3  .org/TR/xhtml  1/DTD/xhtml  1  -transitional.dtd"> 

<html  xmlns="http://www.w3.org/1999/xhtml"> 

<head> 

<title>Distance  Learning:  Insert  New  Course</title> 

<meta  http-equiv="Content-Type"  content="text/html;  charset=iso-8859-l"  /> 
<link  href="DLStylesheet.css"  rel="stylesheet"  type="text/css"  /> 

<style  type="text/css"> 

<!- 
a:  link  { 

color:  #CC3300; 

} 

a:visited  { 

color:  #CC3399; 

} 

a:hover  { 

color:  #000066; 

} 

a:  active  { 

color:  #339900; 

} 

— > 

</style> 

</head> 

<body> 

<table  width="95%"  height="214"  border="0"  align="center"  cellpadding="3" 
cellspacing="0"> 

<tr> 

<td  height="109"><table  width="100%"  border="0"  align="left" 
cellpadding="3"  cellspacing="0"  bgcolor="#DEDEBC"> 

<tr> 
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<td  width="88%"  align="  center"  valign="middle" 

bgcolor="#DEDEBC"><img  sre="Images/nps_banner.gif'  width="447"  height="97"  /> 

</td> 

</tr> 

</table></td> 

</tr> 

<tr> 

<td  height="50"><table  width="72%"  border="0"  align="eenter" 
cellpadding="3"  eellspaeing="0"  bordereolor="#F6F6F3"> 

<tr> 

<td  width="14%"  bgeolor="#DEDEBC"><object 

classid="elsid:D27CDB6E-AE6D-llcf-96B8-444553540000" 

codebase="http://download.macromedia.eom/pub/shoekwave/eabs/flash/swflash.eab#ver 
sion=5, 0,0,0"  width="103"  height="24"> 

<param  name="movie"  value="button2.swf'  /> 

<param  name="quality"  value="high"  /> 

<param  name="bgcolor"  value="#DEDEBC"  /> 

<embed  src="button2.swf'  quality="high" 

pluginspage="http://www.maeromedia.com/shockwave/download/index.cgi?Pl_Prod_Ve 
rsion=ShockwaveFlash"  type="application/x-shockwave-flash"  width="103"  height="24" 
bgcolor="#DEDEBC"></embed> 

</object></td> 

<td  width="14%"  bgeolor="#DEDEBC"><object 

classid="elsid:D27CDB6E-AE6D-llcf-96B8-444553540000" 

codebase="http://download.macromedia.eoin/pub/shoekwave/eabs/flash/swflash.eab#ver 
sion=5,0,0,0"  name="Seareh"  width="100"  height="23"  id="Seareh"> 

<param  name="movie"  value="buttonl.swf'  /> 

<param  name="quality"  value="high"  /> 

<param  name="bgcolor"  value="#DEDEBC"  /> 

<embed  src="buttonl.swf'  width="100"  height="23"  quality="high" 
pluginspage="http://www.maeromedia.coin/shockwave/download/index.cgi?Pl_Prod_Ve 
rsion=ShockwaveFlash"  type="application/x-shockwave-flash"  bgcolor="#DEDEBC" 
name="  Seareh"></embed> 

</object></td> 

<td  width="14%"  bgeolor="#DEDEBC"><object 

classid="elsid:D27CDB6E-AE6D-llcf-96B8-444553540000" 

codebase="http://download.macromedia.eoin/pub/shoekwave/eabs/flash/swflash.eab#ver 
sion=5,0,0,0"  width="100"  height="23"> 

<param  name="movie"  value="button3.swf'  /> 

<param  name="quality"  value="high"  /> 

<param  name="bgcolor"  value="#DEDEBC"  /> 

<embed  src="button3.swf'  quality="high" 

pluginspage="http://www.maeromedia.coin/shockwave/download/index.cgi?Pl_Prod_Ve 
rsion=ShockwaveFlash"  type="application/x-shockwave-flash"  width="100"  height="23" 
bgcolor="#DEDEBC"></embed> 

</object></td> 


87 


<td  width="14%"  bgcolor="#DEDEBC"><object 

classid="clsid:D27CDB6E-AE6D-llcf-96B8-444553540000" 

codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#ver 
sion=5, 0,0,0"  width="100"  height="23"> 

<param  name="movie"  value="button4.swf'  /> 

<param  name="quality"  value="high"  /> 

<param  name="bgcolor"  value="#DEDEBC"  /> 

<embed  src="button4.swf'  quality="high" 

pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?Pl_Prod_Ve 
rsion=ShockwaveFlash"  type="application/x-shockwave-flash"  width="100"  height="23" 
bgcolor="#DEDEBC"></embed> 

</object></td> 

<td  width="14%"  bgcolor="#DEDEBC"><object 

classid="clsid:D27CDB6E-AE6D-llcf-96B8-444553540000" 

codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#ver 
sion=5,0,0,0"  width="103"  height="24"> 

<param  name="movie"  value="button5.swf'  /> 

<param  name="quality"  value="high"  /> 

<param  name="bgcolor"  value="#DEDEBC"  /> 

<embed  src="button5.swf'  quality="high" 

pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?Pl_Prod_Ve 
rsion=ShockwaveFlash"  type="application/x-shockwave-flash"  width="103"  height="24" 
bgcolor="#DEDEBC"></embed> 

</object></td> 

</tr> 

</table></td> 

</tr> 

<tr> 

<td><hr  />  <h3  align="center">  Insert  New  Course  </h3> 

<hr  />  <form  ACTION="<%=MM_editAction%>"  METHOD="POST" 
name="forml"  id="forml"> 

<table  width="95%"  border="l"  align="  center"  cellpadding="3" 

cellspacing="0"> 

<tr> 

<td>Course  Code  </td> 

<td><input  name="courseCode"  type="text"  id="courseCode"  /></td> 
</tr> 

<tr> 

<td>Course  Name  </td> 

<td><input  name="courseName"  type="text"  id="courseName"  /></td> 
</tr> 

<tr> 

<td>Course  Description  </td> 

<td><textarea  name="courseDescription"  cols="50" 

id="courseDescription"></textarea></td> 

</tr> 
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<tr> 

<td>&nbsp;</td> 

<td><input  name=" Submit"  type="submit"  value=" Submit"  /></td> 
</tr> 

</table> 


<input  type="hidden"  name="MM_insert"  value="formr'> 
</form>  <p  align="left">&nbsp;</p></td> 

</tr> 

<tr> 

<td>&nbsp;  </td> 

</tr> 

</table> 

<p>&nbsp;</p> 

<p>&nbsp;</p> 

</body> 

</html> 
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5.  Forin_Add_Subject.asp 

<%@LANGUAGE=" VBSCRIPT"  CODEPAGE='T252"%> 

<!— #include  file="Connections/conn_DistanceLeaming.asp"  — > 

<% 

'  ***  Restrict  Access  To  Page:  Grant  or  deny  access  to  this  page 
MM_authorizedUsers="admin, professor" 

MM_authFailedURL="  login,  asp" 

MM_grantAccess=false 
If  Session("MM_Usemame")  <>  ""  Then 
If  (false  Or  CStr(Session("MM_UserAuthorization"))="")  Or  _ 

(InStr(l,MM_authorizedUsers,Session("MM_UserAuthorization"))>=l) 

Then 

MM_grantAccess  =  true 
End  If 
End  If 

If  Not  MM_grantAccess  Then 
MM_qsChar  =  "?" 

If  (InStr(l,MM_authFailedURL,"?")  >=  1)  Then  MM  qsChar  =  "&" 
MM_referrer  =  Request.  ServerVariables("URL") 

if  (Len(Request.QueryString())  >  0)  Then  MM_referrer  =  MM_referrer  &  "?"  & 
Request.QueryStringO 

MM_authFailedURL  =  MM_authFailedURL  &  MM_qsChar  &  "accessdenied=" 
&  Server.URLEncode(MM_referrer) 

Response.Redirect(MM_authFailedURL) 

End  If 

%> 

<% 

'  ***  Edit  Operations:  declare  variables 

Dim  MMeditAction 
Dim  MMabortEdit 
Dim  MMeditQuery 
Dim  MM_editCmd 

Dim  MM_editConnection 
Dim  MM_editTable 
Dim  MMeditRedirectUrl 
Dim  MMeditColumn 
Dim  MM_recordId 

Dim  MMfieldsStr 
Dim  MMcolumnsStr 
Dim  MM_fields 
Dim  MM  columns 
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Dim  MMtypeArray 
Dim  MMformVal 
Dim  MMdelim 
Dim  MMaltVal 
Dim  MM_emptyVal 
Dim  MM_i 

MM_editAction  =  CStr(Request.ServerVariables("SCRIPT_NAME")) 

If  (Request.QueryString  <>  "")  Then 

MM_edit  Action  =  MM_edit  Action  &  "?"  & 

Server.HTMLEncode(Request.QueryString) 

End  If 

'  boolean  to  abort  record  edit 
MM_abortEdit  =  false 

'  query  string  to  execute 
MM_editQuery  = "" 

%> 

<% 

'  ***  Insert  Record:  set  variables 

If  (CStr(Request("MM_insert"))  =  "formi")  Then 

MMeditConnection  =  MM_conn_DistanceLeaming_STRING 
MM_editTabIe  =  "Subject" 

MMeditRedirectUrl  =  "Form_Subject_Master.asp" 

MM_fieIds  S  tr  =  "  subj  ectN  ame  lvalue  |  subj  ectDescriptionj  value  |  courseid|  value" 
MM_columnsStr  = 

"subjectNamel', none, "|subjectDescription|', none, "|courseid|none, none, NULL" 

'  create  the  MM_fields  and  MM_columns  arrays 
MM_fields  =  Split(MM_fieldsStr,  "I") 

MM_columns  =  Split(MM_columnsStr,  "|") 

'  set  the  form  values 

For  MM_i  =  LBound(MM_fields)  To  UBound(MM_fields)  Step  2 
MM_fields(MM_i+l)  =  CStr(Request.Form(MM_fields(MM_i))) 

Next 

'  append  the  query  string  to  the  redirect  URL 

If  (MM  editRedirectUrl  <>  ""  And  Request.QueryString  <>  "")  Then 
If  (InStr(I,  MM_editRedirectUrl,  "?",  vbTextCompare)  =  0  And 

Request.QueryString  <>  "")  Then 

MM_editRedirectUrl  =  MM_editRedirectUrl  &  "?"  &  Request.QueryString 
Else 
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MM_editRedirectUrl  =  MM_editRedirectUrl  &  "&"  &  Request.QueryString 
End  If 
End  If 

End  If 

%> 

<% 

'  ***  Insert  Record:  construct  a  sql  insert  statement  and  execute  it 

Dim  MMtable  Values 
Dim  MM_db  Values 

If  (CStr(Request("MM_insert"))  <>  "")  Then 

'  create  the  sql  insert  statement 
MMjable  Values  = "" 

MM_db  Values  = 

For  MM_i  =  LBound(MM_fields)  To  UBound(MM_fields)  Step  2 
MM_formVal  =  MM_fields(MM_i+l) 

MM_typeArray  =  Split(MM_columns(MM_i+l),",'') 

MM_delim  =  MM_typeArray(0) 

If  (MM_delim  =  "none")  Then  MM_delim  =  "" 

MM_altVal  =  MM_typeArray(l) 

If  (MM_altVal  =  "none")  Then  MM_altVal  =  "" 

MM_emptyVal  =  MM_typeArray(2) 

If  (MM_emptyVal  =  "none")  Then  MM_emptyVal  =  "" 

If  (MM_formVal  =  "")  Then 
MM_formVal  =  MM_emptyVal 
Else 

If  (MM_altVal  <>  "")  Then 
MM_formVal  =  MM_altVal 
Elself  (MM_delim  =  ""')  Then  '  escape  quotes 
MM_formVal  =  "'"  &  Replace(MM_formVal, ""',""")  &  ""' 

Else 

MM_formVal  =  MM_delim  +  MM_formVal  +  MM_delim 
End  If 
End  If 

If  (MM_i  <>  LBound(MM_fields))  Then 
MM_table Values  =  MM_table Values  & 

MM_db Values  =  MM_dbValues  &  "," 

End  If 

MM_tableValues  =  MM_table Values  &  MM_columns(MM_i) 

MM_db Values  =  MM_db Values  &  MM_formVal 
Next 

MM_editQuery  =  "insert  into  "  &  MM_editTable  &  "  ("  &  MM_tableValues  & 
")  values  ("  &  MM_dbValues  &  ")" 
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If  (Not  MM_abortEdit)  Then 
'  execute  the  insert 

Set  MM_editCnid  =  Server.  CreateObject("ADODB. Command") 
MMeditCmd.ActiveConnection  =  MMeditConnection 
MMeditCmd.CommandText  =  MMeditQuery 
MM_editCmd.Execute 
MM_editCmd.ActiveConnection.Close 

If  (MM_editRedirectUrI  <>  "")  Then 
Response.Redirect(MM_editRedirectUrI) 

End  If 
End  If 

End  If 

%> 

<% 

Dim  rs_course _ MMCoIParam 

rs_course _ MMCoIParam  =  "  I " 

If  (Request.QueryStringC'courseid")  <>  "")  Then 

rscourse _ MMCoIParam  =  Request.QueryStringC'courseid") 

End  If 
%> 

<% 

Dim  rs_course 

Dim  rs_course_numRows 

Set  rs  course  =  Server.CreateObject("ADODB.Recordset") 
rs_course.ActiveConnection  =  MMconnDistanceLeamingSTRING 
rs  course. Source  =  "SELECT  *  FROM  Course  WHERE  courseid  =  "  + 

RepIace(rs_course _ MMCoIParam, """)  +  "" 

rs_course.CursorType  =  0 
rs_course.CursorLocation  =  2 
rs_course.LockType  =  I 
rs_course .  Open() 

rscoursenumRows  =  0 

%> 

<!DOCTYPE  html  PUBLIC  "-//W3C//DTD  XHTML  1.0  TransitionaI//EN" 
"http://www.w3  .org/TR/xhtml  I/DTD/xhtml  I  -transitionaI.dtd"> 

<html  xmIns="http://www.w3.org/I999/xhtmI"> 

<head> 

<titIe>Distance  Learning:  Insert  Subject  to  Course</titIe> 

<meta  http-equiv="Content-Type"  content="text/htmI;  charset=iso-8859-I"  /> 
<Iink  href="DLStyIesheet.css"  rel="stylesheet"  type="text/css"  /> 

<style  type="text/css"> 
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<!- 
a:  link  { 

color:  #CC3300; 

} 

aivisited  { 

color:  #CC3399; 

} 

a:hover  { 

color:  #000066; 

} 

a:  active  { 

color:  #339900; 

} 

.style  1  {color:  #CC3300} 

— > 

</style> 

<script  language="JavaScript"  type="text/JavaScript"> 

<!- 

function  MM_findObj(n,  d)  {  //v4.01 

var  p,i,x;  if(!d)  d=docunient;  if((p=n.indexOf("?"))>0&&parent.franies. length) 

{ 

d=parent.ff anies[n.substring(p+ 1 )]  .document;  n=n.substring(0,p); } 
if(!(x=d[n])&&d.all)  x=d.all[n];  for  (i=0;!x&&i<d.forms.length;i++) 
x=d.  forms  [i][n]; 

for(i=0 ; !  x&&d.  lay  ers&&i<d.  layers .  length;i++) 
x=MM_fmdObj  (n,d.  lay  ers  [i]  .document) ; 

if(!x  &&  d.getElementByld)  x=d.getElementById(n);  return  x; 

} 

funetion  MM_validateForm()  { //v4.0 

var  i,p,q,nm, test, num, min, max, errors=",args=MM_validateForm.arguments; 
for  (i=0;  i<(args. length-2);  i+=3)  { test=args[i+2];  val=MM_findObj(args[i]); 
if  (val)  {  nm=val.name;  if  ((val=val.value)!="")  { 
if  (test.indexOf('isEmail')!=-l)  { p=val.indexOf('@'); 
if  (p<l  II  p==(val.length-l))  errors+='-  '+nm+'  must  eontain  an  e-mail 

address.W; 

}  else  if  (test!='R')  {  num  =  parseFloat(val); 
if  (isNaN(val))  errors+='-  '+nm+'  must  contain  a  number.\n'; 
if  (test.indexOf('inRange')  !=  -1)  {  p=test.indexOf(':'); 
min=test .  substring(  8  ,p) ;  max=test.  substring(p+ 1 ) ; 

if  (num<min  ||  max<num)  errors+='-  '+nm+'  must  contain  a  number 
between  '+min+'  and  '+max+'.\n'; 

}  }  }  else  if  (test.charAt(O)  ==  'R')  errors  +=  '-  '+nm+'  is  required.\n';  } 

}  if  (errors)  alert('The  following  error(s)  occurred:\n'+errors); 
document. MM_retumValue  =  (errors  ==  "); 

} 
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//-> 

</script> 

</head> 

<body 

onload="MM_validateForm('subjectName2',",'R','subjectDescriptionV','R');retum 

document.MM_retumValue"> 

<table  width="95%"  height="214"  border="0"  align="center"  cellpadding="3" 
cellspacing="0"> 

<tr> 

<td  height="109"><table  width="100%"  border="0"  align="left" 
cellpadding="3"  cellspacing="0"  bgcolor="#DEDEBC"> 

<tr> 

<td  width="88%"  align="  center"  valign="middle" 

bgcolor="#DEDEBC"><img  sre="Images/nps_banner.gif'  width="447"  height="97"  /> 

</td> 

</tr> 

</table></td> 

</tr> 

<tr> 

<td  height="50"><table  width="72%"  border="0"  align="eenter" 
cellpadding="3"  eellspaeing="0"  bordereolor="#F6F6F3"> 

<tr> 

<td  width="14%"  bgeolor="#DEDEBC"><object 

classid="elsid:D27CDB6E-AE6D-llcf-96B8-444553540000" 

codebase="http://download.macromedia.eoin/pub/shoekwave/eabs/flash/swflash.eab#ver 
sion=5, 0,0,0"  width="103"  height="24"> 

<param  name="movie"  value="button2.swf'  /> 

<param  name="quality"  value="high"  /> 

<param  name="bgcolor"  value="#DEDEBC"  /> 

<embed  src="button2.swf'  quality="high" 

pluginspage="http://www.maeromedia.coin/shockwave/download/index.cgi?Pl_Prod_Ve 
rsion=ShockwaveFlash"  type="application/x-shockwave-flash"  width="103"  height="24" 
bgcolor="#DEDEBC"></embed> 

</object></td> 

<td  width="14%"  bgeolor="#DEDEBC"><object 

classid="elsid:D27CDB6E-AE6D-llcf-96B8-444553540000" 

codebase="http://download.macromedia.eoin/pub/shoekwave/eabs/flash/swflash.eab#ver 
sion=5,0,0,0"  name="Seareh"  width="100"  height="23"  id="Seareh"> 

<param  name="movie"  value="buttonLswf'  /> 

<param  name="quality"  value="high"  /> 

<param  name="bgcolor"  value="#DEDEBC"  /> 

<embed  src="buttonLswf'  width="100"  height="23"  quality="high" 
pluginspage="http://www.maeromedia.coin/shockwave/download/index.cgi?Pl_Prod_Ve 
rsion=ShockwaveFlash"  type="application/x-shockwave-flash"  bgcolor="#DEDEBC" 
name="  Seareh"></embed> 

</object></td> 
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<td  width="14%"  bgcolor="#DEDEBC"><object 

classid="clsid:D27CDB6E-AE6D-llcf-96B8-444553540000" 

codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#ver 
sion=5, 0,0,0"  width="100"  height="23"> 

<param  name="movie"  value="button3.swf'  /> 

<param  name="quality"  value="high"  /> 

<param  name="bgcolor"  value="#DEDEBC"  /> 

<embed  src="button3.swf'  quality="high" 

pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?Pl_Prod_Ve 
rsion=ShockwaveFlash"  type="application/x-shockwave-flash"  width="100"  height="23" 
bgcolor="#DEDEBC"></embed> 

</object></td> 

<td  width="14%"  bgcolor="#DEDEBC"><object 

classid="clsid:D27CDB6E-AE6D-llcf-96B8-444553540000" 

codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#ver 
sion=5,0,0,0"  width="100"  height="23"> 

<param  name="movie"  value="button4.swf'  /> 

<param  name="quality"  value="high"  /> 

<param  name="bgcolor"  value="#DEDEBC"  /> 

<embed  src="button4.swf'  quality="high" 

pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?Pl_Prod_Ve 
rsion=ShockwaveFlash"  type="application/x-shockwave-flash"  width="100"  height="23" 
bgcolor="#DEDEBC"></embed> 

</object></td> 

<td  width="14%"  bgcolor="#DEDEBC"><object 

classid="clsid:D27CDB6E-AE6D-llcf-96B8-444553540000" 

codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#ver 
sion=5,0,0,0"  width="103"  height="24"> 

<param  name="movie"  value="button5.swf'  /> 

<param  name="quality"  value="high"  /> 

<param  name="bgcolor"  value="#DEDEBC"  /> 

<embed  src="button5.swf'  quality="high" 

pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?Pl_Prod_Ve 
rsion=ShockwaveFlash"  type="application/x-shockwave-flash"  width="103"  height="24" 
bgcolor="#DEDEBC"></embed> 

</object></td> 

</tr> 

</table></td> 

</tr> 

<tr> 

<td><hr  />  <h3  align="center">  Insert  Subject  into  :<span 

class="stylel"><%=(rs_course.Fields.Item("courseCode").Value)%></span> 
&nbsp;Course</h3> 

<hr  />  <form  ACTION="<%=MM_editAction%>"  METHOD="POST" 
name="forml"  id="forml"> 

<table  width="95%"  border="l"  cellspacing="0"  cellpadding="3"> 
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<tr> 

<td  width="24%">Subject  Name  </td> 

<td  width="76%"><input  name="subjectName"  type="text" 
id="subjectName2"  /></td> 

</tr> 

<tr> 

<td>Subject  Description  </td> 

<td><textarea  name="subjectDescription"  cols="50" 

id="subjectDescription"></textarea></td> 

</tr> 

<tr> 

<td><input  name="courseid"  type="hidden"  id="courseid"  value="<%= 
Request.QueryStringC'courseid")  %>"  /></td> 

<td><input  type="submit"  name="Submit"  value=" Submit"  /></td> 

</tr> 

</table> 

<input  type="hidden"  name="MM_insert"  value="formr'> 

</form>  <p  align="left">&nbsp;</p></td> 

</tr> 

<tr> 

<td>&nbsp;  </td> 

</tr> 

</table> 

<p>&nbsp;</p> 

<p>&nbsp;</p> 

</body> 

</html> 

<% 

rs_course.Close() 

Set  rs_course  =  Nothing 

%> 
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6.  Form_Add_Topic.asp 

<%@LANGUAGE=" VBSCRIPT"  CODEPAGE='T252"%> 

<!— #include  file="Connections/conn_DistanceLeaming.asp"  — > 

<% 

'  ***  Restrict  Access  To  Page:  Grant  or  deny  access  to  this  page 
MM_authorizedUsers="admin, professor" 

MM_authFailedURL="  login,  asp" 

MM_grantAccess=false 
If  Session("MM_Usemame")  <>  ""  Then 
If  (false  Or  CStr(Session("MM_UserAuthorization"))="")  Or  _ 

(InStr(l,MM_authorizedUsers,Session("MM_UserAuthorization"))>=l) 

Then 

MM_grantAccess  =  true 
End  If 
End  If 

If  Not  MM_grantAccess  Then 
MM_qsChar  =  "?" 

If  (InStr(l,MM_authFailedURL,"?")  >=  1)  Then  MM  qsChar  =  "&" 
MM_referrer  =  Request.  ServerVariables("URL") 

if  (Len(Request.QueryString())  >  0)  Then  MM_referrer  =  MM_referrer  &  "?"  & 
Request.QueryStringO 

MM_authFailedURL  =  MM_authFailedURL  &  MM_qsChar  &  "accessdenied=" 
&  Server.URLEncode(MM_referrer) 

Response.Redirect(MM_authFailedURL) 

End  If 

%> 

<% 

'  ***  Edit  Operations:  declare  variables 

Dim  MMeditAction 
Dim  MMabortEdit 
Dim  MMeditQuery 
Dim  MM_editCmd 

Dim  MM_editConnection 
Dim  MM_editTable 
Dim  MMeditRedirectUrl 
Dim  MMeditColumn 
Dim  MM_recordId 

Dim  MMfieldsStr 
Dim  MMcolumnsStr 
Dim  MM_fields 
Dim  MM  columns 
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Dim  MMtypeArray 
Dim  MMformVal 
Dim  MMdelim 
Dim  MMaltVal 
Dim  MM_emptyVal 
Dim  MM_i 

MM_editAction  =  CStr(Request.ServerVariables("SCRIPT_NAME")) 

If  (Request.QueryString  <>  "")  Then 

MM_edit  Action  =  MM_edit  Action  &  "?"  & 

Server.HTMLEncode(Request.QueryString) 

End  If 

'  boolean  to  abort  record  edit 
MM_abortEdit  =  false 

'  query  string  to  execute 
MM_editQuery  = "" 

%> 

<% 

'  ***  Insert  Record:  set  variables 

If  (CStr(Request("MM_insert"))  =  "frm_topic")  Then 

MMeditConnection  =  MM_conn_DistanceLeaming_STRING 
MM_editTabIe  =  "Topic" 

MMeditRedirectUrl  =  "Form_Topic_Master.asp" 

MM_fieIdsStr  =  "topicName|value|topicDescription|vaIue|subjectid|value" 
MM_columnsStr  = 

"topicNamel', none, "|topicDescription|', none, "|subjectid|none, none, NULL" 

'  create  the  MM_fieIds  and  MM_columns  arrays 
MM_fields  =  Split(MM_fieldsStr,  "I") 

MM_columns  =  Split(MM_columnsStr,  "|") 

'  set  the  form  values 

For  MM_i  =  LBound(MM_fields)  To  UBound(MM_fields)  Step  2 
MM_fields(MM_i+l)  =  CStr(Request.Form(MM_fields(MM_i))) 

Next 

'  append  the  query  string  to  the  redirect  URL 

If  (MM  editRedirectUrl  <>  ""  And  Request.QueryString  <>  "")  Then 
If  (InStr(I,  MM_editRedirectUrl,  "?",  vbTextCompare)  =  0  And 

Request.QueryString  <>  "")  Then 

MM_editRedirectUrl  =  MM_editRedirectUrl  &  "?"  &  Request.QueryString 
Else 
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MM_editRedirectUrl  =  MM_editRedirectUrl  &  "&"  &  Request.QueryString 
End  If 
End  If 

End  If 

%> 

<% 

'  ***  Insert  Record:  construct  a  sql  insert  statement  and  execute  it 

Dim  MMtable  Values 
Dim  MM_db  Values 

If  (CStr(Request("MM_insert"))  <>  "")  Then 

'  create  the  sql  insert  statement 
MMjable  Values  = "" 

MM_db  Values  = 

For  MM_i  =  LBound(MM_fields)  To  UBound(MM_fields)  Step  2 
MM_formVal  =  MM_fields(MM_i+l) 

MM_typeArray  =  Split(MM_columns(MM_i+l),",'') 

MM_delim  =  MM_typeArray(0) 

If  (MM_delim  =  "none")  Then  MM_delim  =  "" 

MM_altVal  =  MM_typeArray(l) 

If  (MM_altVal  =  "none")  Then  MM_altVal  =  "" 

MM_emptyVal  =  MM_typeArray(2) 

If  (MM_emptyVal  =  "none")  Then  MM_emptyVal  =  "" 

If  (MM_formVal  =  "")  Then 
MM_formVal  =  MM_emptyVal 
Else 

If  (MM_altVal  <>  "")  Then 
MM_formVal  =  MM_altVal 
Elself  (MM_delim  =  ""')  Then  '  escape  quotes 
MM_formVal  =  "'"  &  Replace(MM_formVal, ""',""")  &  ""' 

Else 

MM_formVal  =  MM_delim  +  MM_formVal  +  MM_delim 
End  If 
End  If 

If  (MM_i  <>  LBound(MM_fields))  Then 
MM_table Values  =  MM_table Values  & 

MM_db Values  =  MM_dbValues  &  "," 

End  If 

MM_tableValues  =  MM_table Values  &  MM_columns(MM_i) 

MM_db Values  =  MM_db Values  &  MM_formVal 
Next 

MM_editQuery  =  "insert  into  "  &  MM_editTable  &  "  ("  &  MM_tableValues  & 
")  values  ("  &  MM_dbValues  &  ")" 
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If  (Not  MM_abortEdit)  Then 
'  execute  the  insert 

Set  MM_editCnid  =  Server.  CreateObject("ADODB. Command") 
MMeditCmd.ActiveConnection  =  MMeditConnection 
MMeditCmd.CommandText  =  MMeditQuery 
MM_editCmd.Execute 
MM_editCmd.ActiveConnection.Close 

If  (MM_editRedirectUrI  <>  "")  Then 
Response.Redirect(MM_editRedirectUrI) 

End  If 
End  If 

End  If 

%> 

<% 

Dim  rs_subject _ MMCoIParam 

rssubject _ MMCoIParam  =  "I" 

If  (Request.QueryStringC'subjectid")  <>  "")  Then 

rs_subject _ MMCoIParam  =  Request.QueryStringC'subjectid") 

End  If 
%> 

<% 

Dim  rs_subject 

Dim  rs_subject_nuniRows 

Set  rs  subject  =  Server.CreateObject("ADODB.Recordset") 
rssubject.ActiveConnection  =  MMconnDistanceLeamingSTRING 
rs_subject. Source  =  "SELECT  *  FROM  Subject  WHERE  subjectid  =  "  + 

Replace(rs_subject _ MMCoIParam, """)  +  "" 

rs_subject.CursorType  =  0 
rs_subject.CursorLocation  =  2 
rs_subject.LockType  =  I 
rs_subj  ect.  Open() 

rssubjectnumRows  =  0 

%> 

<!DOCTYPE  html  PUBLIC  "-//W3C//DTD  XHTML  1.0  TransitionaI//EN" 
"http://www.w3  .org/TR/xhtml  I/DTD/xhtml  I  -transitionaI.dtd"> 

<html  xmIns="http://www.w3.org/I999/xhtmI"> 

<head> 

<titIe>Distance  Leaming:Insert  Topic  to  Subject</title> 

<meta  http-equiv="Content-Type"  content="text/htmI;  charset=iso-8859-I"  /> 
<Iink  href="DLStyIesheet.css"  rel="stylesheet"  type="text/css"  /> 

<style  type="text/css"> 
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<!- 
a:  link  { 

color:  #CC3300; 

} 

aivisited  { 

color:  #CC3399; 

} 

a:hover  { 

color:  #000066; 

} 

a:  active  { 

color:  #339900; 

} 

.style  1  {color:  #CC3300} 

.style2  (color:  #3300CC} 

— > 

</style> 

</head> 

<body> 

<table  width="95%"  height="214"  border="0"  align="center"  cellpadding="3" 
cellspacing="0"> 

<tr> 

<td  height="109"><table  width="100%"  border="0"  align="lefl" 
cellpadding="3"  cellspacing="0"  bgcolor="#DEDEBC"> 

<tr> 

<td  width="88%"  align="  center"  valign="middle" 

bgcolor="#DEDEBC"><img  sre="Images/nps_banner.gif'  width="447"  height="97"  /> 

</td> 

</tr> 

</table></td> 

</tr> 

<tr> 

<td  height="50"><table  width="72%"  border="0"  align="eenter" 
cellpadding="3"  eellspaeing="0"  bordereolor="#F6F6F3"> 

<tr> 

<td  width="14%"  bgeolor="#DEDEBC"><object 

classid="elsid:D27CDB6E-AE6D-llcf-96B8-444553540000" 

codebase="http://download.macromedia.eom/pub/shoekwave/eabs/flash/swflash.eab#ver 
sion=5, 0,0,0"  width="103"  height="24"> 

<param  name="movie"  value="button2.swf'  /> 

<param  nanie="quality"  value="high"  /> 

<param  name="bgcolor"  value="#DEDEBC"  /> 

<embed  src="button2.swf'  quality="high" 

pluginspage="http://www.maeromedia.com/shockwave/download/index.cgi?Pl_Prod_Ve 
rsion=ShockwaveFlash"  type="application/x-shockwave-flash"  width="103"  height="24" 
bgcolor="#DEDEBC"></embed> 
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</object></td> 

<td  width="14%"  bgcolor="#DEDEBC"><object 

classid="clsid:D27CDB6E-AE6D-llcf-96B8-444553540000" 

codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#ver 
sion=5, 0,0,0"  name=" Search"  width="100"  height="23"  id="Search"> 

<param  name="movie"  value="buttonl.swf'  /> 

<param  name="quality"  value="high"  /> 

<param  name="bgcolor"  value="#DEDEBC"  /> 

<embed  src="buttonl.swf'  width="100"  height="23"  quality="high" 
pluginspage="http://www.macromedia.coin/shockwave/download/index.cgi?Pl_Prod_Ve 
rsion=ShockwaveFlash"  type="application/x-shockwave-flash"  bgcolor="#DEDEBC" 
name="  Search"></embed> 

</object></td> 

<td  width="14%"  bgcolor="#DEDEBC"><object 

classid="clsid:D27CDB6E-AE6D-llcf-96B8-444553540000" 

codebase="htq)://download.macromedia.coiii/pub/shockwave/cabs/flash/swflash.cab#ver 
sion=5,0,0,0"  width="100"  height="23"> 

<param  name="movie"  value="button3.swf'  /> 

<param  name="quality"  value="high"  /> 

<param  name="bgcolor"  value="#DEDEBC"  /> 

<embed  src="button3.swf'  quality="high" 

pluginspage="http://www.macromedia.coiii/shockwave/download/index.cgi?Pl_Prod_Ve 
rsion=ShockwaveFlash"  type="application/x-shockwave-flash"  width="100"  height="23" 
bgcolor="#DEDEBC"></embed> 

</object></td> 

<td  width="14%"  bgcolor="#DEDEBC"><object 

classid="clsid:D27CDB6E-AE6D-llcf-96B8-444553540000" 

codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#ver 
sion=5,0,0,0"  width="100"  height="23"> 

<param  name="movie"  value="button4.swf'  /> 

<param  name="quality"  value="high"  /> 

<param  name="bgcolor"  value="#DEDEBC"  /> 

<embed  src="button4.swf'  quality="high" 

pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?Pl_Prod_Ve 
rsion=ShockwaveFlash"  type="applicatioii/x-shockwave-flash"  width="100"  height="23" 
bgcolor="#DEDEBC"></embed> 

</object></td> 

<td  width="14%"  bgcolor="#DEDEBC"><object 

classid="clsid:D27CDB6E-AE6D-llcf-96B8-444553540000" 

codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#ver 
sion=5,0,0,0"  width="103"  height="24"> 

<param  name="movie"  value="button5.swf'  /> 

<param  name="quality"  value="high"  /> 

<param  name="bgcolor"  value="#DEDEBC"  /> 

<embed  src="button5.swf'  quality="high" 

pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?Pl_Prod_Ve 
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rsion=ShockwaveFlash"  type="application/x-shockwave-flash"  width="103"  height="24" 
bgcolor="#DEDEBC"></embed> 

</object></td> 

</tr> 

</table></td> 

</tr> 

<tr> 

<td><hr  />  <h3  align="center">  Insert  Topic  to:  <span 

class="stylel"><%=(rs_subject.Fields.Item("subjectName").Value)%>&nbsp;<span 
class="  style2">Subj  ect</ span></ span></h3> 

<hr/> 

<form  name="frm_topic"  id="frm_topic"  method="POST" 
action="<%=MM_editAction%>"> 

<table  width="95%"  border="l"  cellspacing="0"  cellpadding="3"> 

<tr> 

<td>Topic  Name  </td> 

<td><input  name="topicName"  type="text"  id="topicName"  size="60" 

/></td> 

</tr> 

<tr> 

<td>Topic  Description  </td> 

<td><textarea  name="topicDescription"  cols="60"  rows="5" 
id="topicDescription"></textarea></td> 

</tr> 

<tr> 

<td><input  name="subjectid"  type="hidden"  id="subjectid"  value="<%= 
Request.QueryStringC'subjectid")  %>"  /></td> 

<td><input  name="  Submit"  type="  submit"  value="Insert"  /></td> 

</tr> 

</table> 


<input  type="hidden"  name="MM_insert"  value="frm_topic"> 
</form>  <p  align="left">&nbsp;</p></td> 

</tr> 

<tr> 

<td>&nbsp;  </td> 

</tr> 

</table> 

<p>&nbsp;</p> 

<p>&nbsp;</p> 

</body> 

</html> 

<% 

rs_subject.Close() 

Set  rs_subject  =  Nothing 

%> 
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7.  Form_Course_Master.asp 

<%@LANGUAGE=" VBSCRIPT"  CODEPAGE='T252"%> 

<!— #include  file="Connections/conn_DistanceLeaming.asp"  — > 

<% 

'  ***  Restrict  Access  To  Page:  Grant  or  deny  access  to  this  page 
MM_authorizedErsers="admin, professor" 

MM_authFailedURL="login.asp" 

MM_grantAccess=false 
If  Session("MM_Usemame")  <>  ""  Then 
If  (false  Or  CStr(Session("MM_UserAuthorization"))="")  Or  _ 

(InStr(  1  ,MM_authorizedUsers,Session("MM_UserAuthorization"))>=  1 ) 

Then 

MM_grantAccess  =  true 
End  If 
End  If 

If  Not  MM_grantAccess  Then 
MM_qsChar  =  "?" 

If  (InStr(l,MM_authFailedURL,"?")  >=  1)  Then  MM_qsChar  =  "&" 
MM_referrer  =  Request.  ServerVariables("URL") 

if  (Len(Request. Query StringO)  >  0)  Then  MM_referrer  =  MM_referrer  &  "?"  & 
Request.QueryStringO 

MM_authFailedURL  =  MM_authFailedURL  &  MM_qsChar  &  "accessdenied=" 
&  Server.URLEncode(MM_referrer) 

Response.Redirect(MM_authFailedURL) 

End  If 

%> 

<% 

Dim  searchMethod 

searchMethod  =  Request.QueryString("radiobutton") 

If  searchMethod  =  1  Then 
Response. Redirect("Keyword_Request.asp") 

End  If 

%> 

<% 

Dim  Courses 

Dim  Courses  numRows 

Set  Courses  =  Server.CreateObject("ADODB.Recordset") 
Courses.ActiveConnection  =  MMconnDistanceLeamingSTRING 
Courses. Source  =  "SELECT  courseid,  courseCode,  courseName  FROM  Course 
ORDER  BY  courseCode  ASC" 

Courses. CursorType  =  0 
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Courses. CursorLocation  =  2 
Courses. LockType  =  1 
Courses.  Open() 

CoursesnumRows  =  0 

%> 

<% 

Dim  rswelcome _ MMColParam 

rs_welcome _ MMColParam  =  "  1" 

If  (Session("MM_Usemame")  <>  "")  Then 

rs_welcome _ MMColParam  =  Session("MM_Username") 

End  If 
%> 

<% 

Dim  rs  welcome 

Dim  rswelcomenumRows 

Set  rs  welcome  =  Server.CreateObject("ADODB.Recordset") 
rswelcome.ActiveConnection  =  MMconnDistanceLeamingSTRING 
rs_welcome. Source  =  "SELECT  firstName  FROM  User  WHERE  userName  = 

+  Replace(rs_welcome _ MMColParam, """)  + 

rs_welcome.CursorType  =  0 
rs_welcome.CursorLocation  =  2 
rswelcome.LockType  =  1 
rs_welcome .  Open() 

rs_welcome_numRows  =  0 

%> 

<!DOCTYPE  html  PUBLIC  "-//W3C//DTD  XHTML  1.0  Transitional//EN" 
"http://www.w3  .org/TR/xhtml  1/DTD/xhtml  1  -transitional.dtd"> 

<html  xmlns="http://www.w3.org/1999/xhtml"> 

<head> 

<title>Distance  Learning:  Course  Request</title> 

<meta  http-equiv="Content-Type"  content="text/html;  charset=iso-8859-l"  /> 
<link  href="DLStylesheet.css"  rel="stylesheet"  type="text/css"  /> 

<style  type="text/css"> 

<!- 

.style3  {color:  #336600} 

.style4  {color:  #FF0000} 

.Styles  {color:  #3300CC} 

— > 

</style> 

</head> 

<body> 

<table  width="95%"  height="214"  border="0"  align="center"  cellpadding="3" 
cellspacing="0"> 
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border="0"  align="left' 


<tr> 

<td  height="109"><table  width="100%" 
cellpadding="3"  cellspacing="0"  bgcolor="#DEDEBC"> 

<tr> 

<td  width="88%"  align="  center"  valign="middle" 

bgcolor="#DEDEBC"><img  sre="Images/nps_banner.gif'  width="447"  height="97"  /> 

</td> 

</tr> 

</table></td> 

</tr> 

<tr> 

<td  height="50"><table  width="72%"  border="0"  align="eenter" 
cellpadding="3"  eellspaeing="0"  bordereolor="#F6F6F3"> 

<tr> 

<td  width="14%"  bgeolor="#DEDEBC"><object 

classid="elsid:D27CDB6E-AE6D-llcf-96B8-444553540000" 

codebase="http://download.macromedia.eom/pub/shoekwave/eabs/flash/swflash.eab#ver 
sion=5, 0,0,0"  width="103"  height="24"> 

<param  name="movie"  value="button2.swf'  /> 

<param  name="quality"  value="high"  /> 

<param  name="bgcolor"  value="#DEDEBC"  /> 

<embed  src="button2.swf'  quality="high" 

pluginspage="http://www.maeromedia.coin/shockwave/download/index.cgi?Pl_Prod_Ve 
rsion=ShockwaveFlash"  type="application/x-shockwave-flash"  width="103"  height="24" 
bgcolor="#DEDEBC"></embed> 

</object></td> 

<td  width="14%"  bgeolor="#DEDEBC"><object 

classid="elsid:D27CDB6E-AE6D-llcf-96B8-444553540000" 

codebase="http://download.macromedia.eoin/pub/shoekwave/eabs/flash/swflash.eab#ver 
sion=5,0,0,0"  name="Seareh"  width="100"  height="23"  id="Seareh"> 

<param  name="movie"  value="buttonLswf'  /> 

<param  name="quality"  value="high"  /> 

<param  name="bgcolor"  value="#DEDEBC"  /> 

<embed  src="buttonLswf'  width="100"  height="23"  quality="high" 
pluginspage="http://www.maeromedia.coin/shockwave/download/index.cgi?Pl_Prod_Ve 
rsion=ShockwaveFlash"  type="application/x-shockwave-flash"  bgcolor="#DEDEBC" 
name="  Seareh"></embed> 

</object></td> 

<td  width="14%"  bgeolor="#DEDEBC"><object 

classid="elsid:D27CDB6E-AE6D-llcf-96B8-444553540000" 

codebase="http://download.macromedia.eoin/pub/shoekwave/eabs/flash/swflash.eab#ver 
sion=5,0,0,0"  width="100"  height="23"> 

<param  name="movie"  value="button3.swf'  /> 

<param  name="quality"  value="high"  /> 

<param  name="bgcolor"  value="#DEDEBC"  /> 
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<embed  src="button3.swf'  quality="high" 

pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?Pl_Prod_Ve 
rsion=ShockwaveFlash"  type="application/x-shockwave-flash"  width="100"  height="23" 
bgcolor="#DEDEBC"></embed> 

</object></td> 

<td  width="14%"  bgcolor="#DEDEBC"><object 

classid="clsid:D27CDB6E-AE6D-llcf-96B8-444553540000" 

codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#ver 
sion=5, 0,0,0"  width="100"  height="23"> 

<param  name="movie"  value="button4.swf'  /> 

<param  name="quality"  value="high"  /> 

<param  name="bgcolor"  value="#DEDEBC"  /> 

<embed  src="button4.swf'  quality="high" 

pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?Pl_Prod_Ve 
rsion=ShockwaveFlash"  type="application/x-shockwave-flash"  width="100"  height="23" 
bgcolor="#DEDEBC"></embed> 

</object></td> 

<td  width="14%"  bgcolor="#DEDEBC"><object 

classid="clsid:D27CDB6E-AE6D-llcf-96B8-444553540000" 

codebase="htq)://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#ver 
sion=5,0,0,0"  width="103"  height="24"> 

<param  name="movie"  value="button5.swf'  /> 

<param  name="quality"  value="high"  /> 

<param  name="bgcolor"  value="#DEDEBC"  /> 

<embed  src="button5.swf'  quality="high" 

pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?Pl_Prod_Ve 
rsion=ShockwaveFlash"  type="application/x-shockwave-flash"  width="103"  height="24" 
bgcolor="#DEDEBC"></embed> 

</object></td> 

</tr> 

</table></td> 

</tr> 

<tr> 

<td><hr  />  <h3  align="center"  class="style4"><span 

class="style5">Welcome</span>&nbsp;<%=(rs_welcome. Fields. Item("firstName").Valu 
e)%>!</h3> 

<h3  align="center"><span  class="style3">Course</span>  Master  Form  </h3> 

<hr  />  </td> 

</tr> 

<tr> 

<td><form  name="fnnCourse"  id="frmCourse"  method="get" 
action="Form_Subj  ect_Master.asp"> 

<div  align="center"> 

<table  width="95%"  border="l"  cellspacing="0"  cellpadding="3"> 

<tr> 

<td  width="44%"><div  align="left"> 
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<p><strong>  Existing  Course  Content 
</strong><br  />(Insert,  Modify,  Delete  content  ONLY)<strong>  <br  /> 
</strong></p> 

</div></td> 

<td  width="56%"><div  align="left"> 

<select  nanie="courseid"  id="courseid"> 

<% 

While  (NOT  Courses.EOF) 

%> 

<option 

value="<%=(Courses.Fields.Item("courseid").Value)%>"><%=(Courses.Fields.Item("co 

urseCode").Value)%></option> 

<% 

Courses .  MoveN  ext() 

Wend 

If  (Courses.CursorType  >  0)  Then 
Courses  .MoveF  irst 
Else 

Courses.Requery 
End  If 

%> 

</seIect> 

<input  type=" submit"  name="Submit"  vaIue="Continue"  /> 

</div></td> 

</tr> 

</table> 

</div> 

</form> 

<form  name="formI"  id="formI"  method="post" 

action="Form_Add_New_Course.asp"> 

<table  width="95%"  border='T"  align="  center"  cellpadding="3" 

cellspacing="0"> 

<tr> 

<td  width="44%"><strong>Insert  New  Course  Record 
</strong><br  />(Course  Name,  Description  &amp;  Code) 

<br  />  </td> 

<td  width="56%">  <input  type="submit"  name=" Submits" 

value="Insert"  /></td></tr> 

</tabIe> 

</form> 

<form  name="form2"  id="form2"  method="get" 

action="Form_Update_Course.asp"> 

<table  width="95%"  border='T"  align="  center"  cellpadding="3" 

cellspacing="0"> 

<tr> 

<td  width="44%"><strong>Update  Existing  Course  Record 
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</strong><br  />(Course  Name,  Description  &amp;  Code)  </td> 

<td  width="56%"><select  name="courseid"  id="courseid"> 

<% 

While  (NOT  Courses.EOF) 

%> 

<option 

value="<%=(Courses.Fields.Item("courseid").Value)%>"><%=(Courses.Fields.Item("co 

urseCode").Value)%></option> 

<% 

Courses .  MoveN  ext() 

Wend 

If  (Courses.CursorType  >  0)  Then 
Courses  .MoveF  irst 
Else 

Courses.Requery 
End  If 

%> 

</select> 

<input  type="submit"  name="Submit2"  value="Update"  /></td> 

</tr> 

</table> 

</form> 

<form  name="form3"  id="form3"  method="get" 

action="Form_Delete_Course.asp"> 

<table  width="95%"  border='T"  align="  center"  cellpadding="3" 
cellspacing="0"> 

<tr> 

<td  width="44%"><strong>Delete  Existing  Course  Record 
</strong><br  />  (Course  Name,  Description  &amp;  Code)  </td> 

<td  width="56%"><select  name="courseid"  id="courseid"> 

<% 

While  (NOT  Courses.EOF) 

%> 

<option 

value="<%=(Courses.Fields.Item("courseid").Value)%>"><%=(Courses.Fields.Item("co 

urseCode").Value)%></option> 

<% 

Courses  .MoveN ext() 

Wend 

If  (Courses.CursorType  >  0)  Then 
Courses .  MoveF  irst 
Else 

Courses.Requery 
End  If 

%> 

</select> 


no 


<input  type=" submit"  name=" Submits"  value="Delete"  /></td> 
</tr> 

</table> 

</form> 

<p>&nbsp;</p> 

<p>&nbsp;</p> 

<p>&nbsp;</p> 

<p>&nbsp  ;</p></td> 

</tr> 

</table> 

<p>&nbsp;</p> 

<p>&nbsp;</p> 

<^ody> 

</html> 

<% 

Courses. Close() 

Set  Courses  =  Nothing 

%> 

<% 

rs_welcome.Close() 

Set  rs_welcome  =  Nothing 

%> 
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8.  Form_Delete_Category.asp 

<%@LANGUAGE=" VBSCRIPT"  CODEPAGE='T252"%> 

<!— #include  file="Connections/conn_DistanceLeaming.asp"  — > 

<% 

'  ***  Restrict  Access  To  Page:  Grant  or  deny  access  to  this  page 
MM_authorizedErsers="  admin" 

MM_authFailedURL="login.asp" 

MM_grantAccess=false 
If  Session("MM_Usemame")  <>  ""  Then 
If  (false  Or  CStr(Session("MM_UserAuthorization"))="")  Or  _ 

(InStr(  1  ,MM_authorizedUsers,Session("MM_UserAuthorization"))>=  1 ) 

Then 

MM_grantAccess  =  true 
End  If 
End  If 

If  Not  MM_grantAccess  Then 
MM_qsChar  =  "?" 

If  (InStr(l,MM_authFailedURL,"?")  >=  1)  Then  MM_qsChar  =  "&" 
MM_referrer  =  Request.  ServerVariables("URL") 

if  (Len(Request. Query StringO)  >  0)  Then  MM_referrer  =  MM_referrer  &  "?"  & 
Request.QueryStringO 

MM_authFailedURL  =  MM_authFailedURL  &  MM_qsChar  &  "accessdenied=" 
&  Server.URLEncode(MM_referrer) 

Response.Redirect(MM_authFailedURL) 

End  If 

%> 

<% 

'  ***  Edit  Operations:  declare  variables 

Dim  MMeditAction 
Dim  MMabortEdit 
Dim  MMeditQuery 
Dim  MM_editCmd 

Dim  MM_editConnection 
Dim  MM_editTable 
Dim  MMeditRedirectUrl 
Dim  MMeditColumn 
Dim  MM_recordId 

Dim  MM  fleldsStr 
Dim  MMcolumnsStr 
Dim  MMfields 
Dim  MM_columns 
Dim  MM_typeArray 
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Dim  MMformVal 
Dim  MMdelim 
Dim  MMaltVal 
Dim  MM_emptyVal 
Dim  MM_i 

MM_editAction  =  CStr(Request.ServerVariables("SCRIPT_NAME")) 

If  (Request.QueryString  <>  "")  Then 

MM_edit Action  =  MM_edit Action  &  "?"  & 

Server.HTMLEncode(Request.QueryString) 

End  If 

'  boolean  to  abort  record  edit 
MM_abortEdit  =  false 

'  query  string  to  execute 
MM_editQuery  =  "" 

%> 

<% 

'  ***  Delete  Record:  declare  variables 

if  (CStr(Request("MM_delete"))  =  "forml"  And  CStr(Request("MM_recordId")) 
<>  "")  Then 

MMeditConnection  =  MM_conn_DistanceLeaming_STRING 
MM_editTable  =  "Category" 

MM_editColumn  =  "categoryid" 

MM_recordId  =  ""  +  Request.Form("MM_recordId")  +  "" 

MM_editRedirectUrl  =  "Form_Master_Category.asp" 

'  append  the  query  string  to  the  redirect  URL 

If  (MM  editRedirectUrl  <>  ""  And  Request.QueryString  <>  "")  Then 
If  (InStr(l,  MM_editRedirectUrl,  "?",  vbTextCompare)  =  0  And 

Request.QueryString  <>  "")  Then 

MM_editRedirectUrl  =  MM_editRedirectUrl  &  "?"  &  Request.QueryString 
Else 

MM_editRedirectUrl  =  MM_editRedirectUrl  &  "&"  &  Request.QueryString 
End  If 
End  If 

End  If 

%> 

<% 

'  ***  Delete  Record:  construct  a  sql  delete  statement  and  execute  it 
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If  (CStr(Request("MM_delete"))  <>  ""  And  CStr(Request("MM_recordId"))  <> 
"")  Then 

'  create  the  sql  delete  statement 

MM_editQuery  =  "delete  from  "  &  MM_editTable  &  "  where  "  & 
MM_editColumn  &  "  =  "  &  MM_recordId 

If  (Not  MM_abortEdit)  Then 
'  execute  the  delete 

Set  MM_editCmd  =  Server.  CreateObject("ADODB. Command") 
MMeditCmd.ActiveConnection  =  MMeditConnection 
MMeditCmd.CommandText  =  MMeditQuery 
MM_editCmd.Execute 
MM_editCmd.ActiveConnection.Close 

If  (MM_editRedirectUrl  <>  "")  Then 
Response.Redirect(MM_editRedirectUrl) 

End  If 
End  If 

End  If 

%> 

<% 

Dim  rscategory _ MMCoIParam 

rs_category _ MMCoIParam  =  "  1 " 

If  (Request.QueryStringC'categoryid")  <>  "")  Then 

rs_category _ MMCoIParam  =  Request.QueryString("categoryid") 

End  If 
%> 

<% 

Dim  rs  category 

Dim  rs_category_numRows 

Set  rs  category  =  Server.CreateObject("ADODB.Recordset") 
rs_category.ActiveConnection  =  MM_conn_DistanceLeaming_STRING 
rs_category. Source  =  "SELECT  *  FROM  Category  WHERE  categoryid  =  "  + 

Replace(rs_category _ MMCoIParam, """)  +  "" 

rs_category.CursorType  =  0 
rs_category.CursorLocation  =  2 
rs_category.LockType  =  I 
rs_category .  Open() 

rs_category_numRows  =  0 

%> 

<!DOCTYPE  html  PUBLIC  "-//W3C//DTD  XHTML  1.0  Transitional//EN" 
"http://www.w3  .org/TR/xhtml  1/DTD/xhtml  1  -transitional.dtd"> 
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<html  xmlns="http  ://www. w3  .org/ 1 999/xhtml"> 

<head> 

<title>Distance  Learning:  Delete  Category  Form</title> 

<meta  http-equiv="Content-Type"  content="text/html;  charset=iso-8859-l"  /> 
<link  href="DLStylesheet.css"  rel="stylesheet"  type="text/css"  /> 

<style  type="text/css"> 

<!- 
a:  link  { 

color:  #CC3300; 

} 

a:visited  { 

color:  #CC3399; 

} 

a:hover  { 

color:  #000066; 

} 

a:  active  { 

color:  #339900; 

} 

.style  1  {color:  #CC0000} 

.style2  {color:  #FF0000} 

.style3  { 

color:  #336633; 
font-weight:  bold; 

} 

— > 

</style> 

<script  language="JavaScript"  type="text/JavaScript"> 

<!- 

function  MM_goToURL()  { //v3.0 

var  i,  args=MM_goToURL. arguments;  document. MM  retumValue  =  false; 
for  (i=0;  i<(args.length-l);  i-l-=2)  eval(args[i]+". location- "-l-args[i+l]+""'); 

} 

//-> 

</script> 

</head> 

<body> 

<table  width="95%"  height="214"  border="0"  align="center"  cellpadding="3" 
cellspacing="0"> 

<tr> 

<td  height="109"><table  width="100%"  border="0"  align="left" 
cellpadding="3"  cellspacing="0"  bgcolor="#DEDEBC"> 

<tr> 

<td  width="88%"  align="  center"  valign="middle" 

bgcolor="#DEDEBC"><img  src="Images/nps_banner.gif'  width="447"  height="97"  /> 

</td> 
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</tr> 

</table></td> 

</tr> 

<tr> 

<td  height="50"><table  width="72%"  border="0"  align="center" 
cellpadding="3"  cellspacing="0"  bordercolor="#F6F6F3"> 

<tr> 

<td  width="14%"  bgcolor="#DEDEBC"><object 

classid="clsid:D27CDB6E-AE6D-llcf-96B8-444553540000" 

codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#ver 
sion=5, 0,0,0"  width="103"  height="24"> 

<param  name="movie"  value="button2.swf'  /> 

<param  name="quality"  value="high"  /> 

<param  name="bgcolor"  value="#DEDEBC"  /> 

<embed  src="button2.swf'  quality="high" 

pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?Pl_Prod_Ve 
rsion=ShockwaveFlash"  type="application/x-shockwave-flash"  width="103"  height="24" 
bgcolor="#DEDEBC"></embed> 

</object></td> 

<td  width="14%"  bgcolor="#DEDEBC"><object 

classid="clsid:D27CDB6E-AE6D-llcf-96B8-444553540000" 

codebase="htq?://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#ver 
sion=5,0,0,0"  name=" Search"  width="100"  height="23"  id="Search"> 

<param  name="movie"  value="buttonl.swf'  /> 

<param  name="quality"  value="high"  /> 

<param  name="bgcolor"  value="#DEDEBC"  /> 

<embed  src="buttonl.swf'  width="100"  height="23"  quality="high" 
pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?Pl_Prod_Ve 
rsion=ShockwaveFlash"  type="application/x-shockwave-flash"  bgcolor="#DEDEBC" 
name="  Search"></embed> 

</object></td> 

<td  width="14%"  bgcolor="#DEDEBC"><object 

classid="clsid:D27CDB6E-AE6D-llcf-96B8-444553540000" 

codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#ver 
sion=5,0,0,0"  width="100"  height="23"> 

<param  name="movie"  value="button3.swf'  /> 

<param  name="quality"  value="high"  /> 

<param  name="bgcolor"  value="#DEDEBC"  /> 

<embed  src="button3.swf'  quality="high" 

pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?Pl_Prod_Ve 
rsion=ShockwaveFlash"  type="application/x-shockwave-flash"  width="100"  height="23" 
bgcolor="#DEDEBC"></embed> 

</object></td> 

<td  width="14%"  bgcolor="#DEDEBC"><object 

classid="clsid:D27CDB6E-AE6D-llcf-96B8-444553540000" 
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codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#ver 
sion=5, 0,0,0"  width="100"  height="23"> 

<param  name="movie"  value="button4.swf'  /> 

<param  name="quality"  value="high"  /> 

<param  name="bgcolor"  value="#DEDEBC"  /> 

<embed  src="button4.swf'  quality="high" 

pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?Pl_Prod_Ve 
rsion=ShockwaveFlash"  type="application/x-shockwave-flash"  width="100"  height="23" 
bgcolor="#DEDEBC"></embed> 

</object></td> 

<td  width="14%"  bgcolor="#DEDEBC"><object 

classid="clsid:D27CDB6E-AE6D-llcf-96B8-444553540000" 

codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#ver 
sion=5,0,0,0"  width="103"  height="24"> 

<param  name="movie"  value="button5.swf'  /> 

<param  name="quality"  value="high"  /> 

<param  name="bgcolor"  value="#DEDEBC"  /> 

<embed  src="button5.swf'  quality="high" 

pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?Pl_Prod_Ve 
rsion=ShockwaveFlash"  type="application/x-shockwave-flash"  width="103"  height="24" 
bgcolor="#DEDEBC"></embed> 

</object></td> 

</tr> 

</table></td> 

</tr> 

<tr> 

<td><hr  />  <h3  align="center">  Delete  Category  Record:  <span 

class="stylel"><%=(rs_category.Fields.Item("categoryName").Value)%></span></h3> 

<hr/> 

<p  align="center"><span  class="style2">***Are  you  sure  you  want  to  Delete 
the  Category  Record:</span>  <span 

class="style3"><%=(rs_category.Fields.Item("categoryName").Value)%></span> 

?<span  class="style2">***</span>  </p> 

<p  align="center"> 

<input  name="Submit2"  type="submit" 

onclick="MM_goT  oURL('parent',  'F  orm_Master_Category .  asp')  ;retum 
document.MM_retumValue"  value="Cancel"  /> 

</p>  <form  name="forml"  id="forml"  method="POST" 

action="<%=MM_editAction%>"> 

<table  width="95%"  border="l"  align="  center"  cellpadding="3" 
cellspacing="0"> 

<tr> 

<td>Category  Name  </td> 

<td><input  name="categoryName"  type="text"  id="categoryName" 
value="<%=(rs_category.Fields.Item("categoryName").Value)%>"  size="60"  /></td> 

</tr> 
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<tr> 

<td>Category  Description  </td> 

<td><textarea  name="categoryDescription"  cols="60"  rows="5" 
id="categoryDescription"><%=(rs_category.Fields.Item("categoryDescription").Value)% 
></ textareax/ td> 

</tr> 

<tr> 

<td>&nbsp  ;</td> 

<td><input  type=" submit"  name="Submit"  value="Delete"  /></td> 

</tr> 

</table> 


<input  type="hidden"  name="MM_delete"  value="forml"> 

<input  type="hidden"  name="MM_recordId"  value="<%= 
rs_category.Fields.Item("categoryid"). Value  %>"> 

</form>  <p  align="lefl">&nbsp;</p></td> 

</tr> 

<tr> 

<td>&nbsp;  </td> 

</tr> 

</table> 

<p>&nbsp;</p> 

<p>&nbsp;</p> 

<^ody> 

</html> 

<% 

rs_category.Close() 

Set  rs_category  =  Nothing 

%> 
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9.  Form_Delete_Course.asp 

<%@LANGUAGE=" VBSCRIPT"  CODEPAGE='T252"%> 

<!— #include  file="Connections/conn_DistanceLeaming.asp"  — > 

<% 

'  ***  Restrict  Access  To  Page:  Grant  or  deny  access  to  this  page 
MM_authorizedErsers="admin, professor" 

MM_authFailedURL="login.asp" 

MM_grantAccess=false 
If  Session("MM_Usemame")  <>  ""  Then 
If  (false  Or  CStr(Session("MM_UserAuthorization"))="")  Or  _ 

(InStr(  1  ,MM_authorizedUsers,Session("MM_UserAuthorization"))>=  1 ) 

Then 

MM_grantAccess  =  true 
End  If 
End  If 

If  Not  MM_grantAccess  Then 
MM_qsChar  =  "?" 

If  (InStr(l,MM_authFailedURL,"?")  >=  1)  Then  MM_qsChar  =  "&" 
MM_referrer  =  Request.  ServerVariables("URL") 

if  (Len(Request. Query StringO)  >  0)  Then  MM_referrer  =  MM_referrer  &  "?"  & 
Request.QueryStringO 

MM_authFailedURL  =  MM_authFailedURL  &  MM_qsChar  &  "accessdenied=" 
&  Server.URLEncode(MM_referrer) 

Response.Redirect(MM_authFailedURL) 

End  If 

%> 

<% 

'  ***  Edit  Operations:  declare  variables 

Dim  MMeditAction 
Dim  MMabortEdit 
Dim  MMeditQuery 
Dim  MM_editCmd 

Dim  MM_editConnection 
Dim  MM_editTable 
Dim  MMeditRedirectUrl 
Dim  MMeditColumn 
Dim  MM_recordId 

Dim  MM  fleldsStr 
Dim  MMcolumnsStr 
Dim  MMfields 
Dim  MM_columns 
Dim  MM_typeArray 
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Dim  MMformVal 
Dim  MMdelim 
Dim  MMaltVal 
Dim  MM_emptyVal 
Dim  MM_i 

MM_editAction  =  CStr(Request.ServerVariables("SCRIPT_NAME")) 

If  (Request.QueryString  <>  "")  Then 

MM_edit Action  =  MM_edit Action  &  "?"  & 

Server.HTMLEncode(Request.QueryString) 

End  If 

'  boolean  to  abort  record  edit 
MM_abortEdit  =  false 

'  query  string  to  execute 
MM_editQuery  =  "" 

%> 

<% 

'  ***  Delete  Record:  declare  variables 

if  (CStr(Request("MM_delete"))  =  "forml"  And  CStr(Request("MM_recordId")) 
<>  "")  Then 

MMeditConnection  =  MM_conn_DistanceLeaming_STRING 
MM_editTable  =  "Course" 

MM_editColumn  =  "courseid" 

MM_recordId  =  ""  +  Request.Form("MM_recordId")  +  "" 

MM_editRedirectUrl  =  "Form_Course_Master.asp" 

'  append  the  query  string  to  the  redirect  URL 

If  (MM  editRedirectUrl  <>  ""  And  Request.QueryString  <>  "")  Then 
If  (InStr(l,  MM_editRedirectUrl,  "?",  vbTextCompare)  =  0  And 

Request.QueryString  <>  "")  Then 

MM_editRedirectUrl  =  MM_editRedirectUrl  &  "?"  &  Request.QueryString 
Else 

MM_editRedirectUrl  =  MM_editRedirectUrl  &  "&"  &  Request.QueryString 
End  If 
End  If 

End  If 

%> 

<% 

'  ***  Delete  Record:  construct  a  sql  delete  statement  and  execute  it 
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If  (CStr(Request("MM_delete"))  <>  ""  And  CStr(Request("MM_recordId"))  <> 
"")  Then 

'  create  the  sql  delete  statement 

MM_editQuery  =  "delete  from  "  &  MM_editTable  &  "  where  "  & 
MM_editColumn  &  "  =  "  &  MM_recordId 

If  (Not  MM_abortEdit)  Then 
'  execute  the  delete 

Set  MM_editCmd  =  Server.  CreateObject("ADODB. Command") 
MMeditCmd.ActiveConnection  =  MMeditConnection 
MMeditCmd.CommandText  =  MMeditQuery 
MM_editCmd.Execute 
MM_editCmd.ActiveConnection.Close 

If  (MM_editRedirectUrl  <>  "")  Then 
Response.Redirect(MM_editRedirectUrl) 

End  If 
End  If 

End  If 

%> 

<% 

Dim  rscourse _ MMColParam 

rs_course _ MMColParam  =  "  1 " 

If  (Request.QueryStringC'courseid")  <>  "")  Then 

rs_course _ MMColParam  =  Request.QueryStringC'courseid") 

End  If 
%> 

<% 

Dim  rs  course 

Dim  rs_course_numRows 

Set  rs  course  =  Server.CreateObject("ADODB.Recordset") 
rs_course.ActiveConnection  =  MM_conn_DistanceLeaming_STRING 
rs_course. Source  =  "SELECT  *  FROM  Course  WHERE  courseid  =  "  + 

Replace(rs_course _ MMColParam,  """)  +  "" 

rs_course.CursorType  =  0 
rs_course.CursorLocation  =  2 
rs_course.LockType  =  1 
rs_course .  Open() 

rscoursenumRows  =  0 

%> 

<!DOCTYPE  html  PUBLIC  "-//W3C//DTD  XHTML  1.0  Transitional//EN" 
"http://www.w3  .org/TR/xhtml  1/DTD/xhtml  1  -transitional.dtd"> 
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<html  xmlns="http  ://www. w3  .org/ 1 999/xhtml"> 

<head> 

<title>Distance  Learning:  Delete  Course</title> 

<meta  http-equiv="Content-Type"  content="text/html;  charset=iso-8859-l"  /> 
<link  href="DLStylesheet.css"  rel="stylesheet"  type="text/css"  /> 

<style  type="text/css"> 

<!- 
a:  link  { 

color:  #CC3300; 

} 

a:visited  { 

color:  #CC3399; 

} 

a:hover  { 

color:  #000066; 

} 

a:  active  { 

color:  #339900; 

} 

.style  1  {color:  #CC3300} 

— > 

</style> 

<script  language="JavaScript"  type="text/JavaScript"> 

<!- 

function  MM_goToURL()  { //v3.0 

var  i,  args=MM_goToURL. arguments;  document.MM_retumValue  =  false; 
for  (i=0;  i<(args.length-l);  i+=2)  eval(args[i]+".location="'+args[i+l]+""'); 

} 

//-> 

</script> 

</head> 

<body> 

<table  width="95%"  height="214"  border="0"  align="center"  cellpadding="3" 
cellspacing="0"> 

<tr> 

<td  height="109"><table  width="100%"  border="0"  align="left" 
cellpadding="3"  cellspacing="0"  bgcolor="#DEDEBC"> 

<tr> 

<td  width="88%"  align="  center"  valign="middle" 

bgcolor="#DEDEBC"><img  src="Images/nps_banner.gif'  width="447"  height="97"  /> 

</td> 

</tr> 

</table></td> 

</tr> 

<tr> 
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<td  height="50"><table  width="72%"  border="0"  align="center" 
cellpadding="3"  cellspacing="0"  bordercolor="#F6F6F3"> 

<tr> 

<td  widtb="14%"  bgcolor="#DEDEBC"><object 

classid="clsid:D27CDB6E-AE6D-llcf-96B8-444553540000" 

codebase="bttp://download.macromedia.com/pub/sbockwave/cabs/flasb/swflasb.cab#ver 
sion=5, 0,0,0"  widtb="103"  beigbt="24"> 

<param  name="movie"  value="button2.swf'  /> 

<param  name="quality"  value="bigb"  /> 

<param  name="bgcolor"  value="#DEDEBC"  /> 

<embed  src="button2.swf'  quality="bigb" 

pluginspage="bttp://www.macromedia.com/sbockwave/download/index.cgi?Pl_Prod_Ve 
rsion=SbockwaveFlasb"  type="application/x-sbockwave-flasb"  widtb="103"  beigbt="24" 
bgcolor="#DEDEBC"></embed> 

</object></td> 

<td  widtb="14%"  bgcolor="#DEDEBC"><object 

classid="clsid:D27CDB6E-AE6D-llcf-96B8-444553540000" 

codebase="btq)://download.macromedia.com/pub/sbockwave/cabs/flasb/swflasb.cab#ver 
sion=5,0,0,0"  name=" Search"  widtb="100"  beigbt="23"  id="Searcb"> 

<param  name="movie"  value="buttonl.swf'  /> 

<param  name="quality"  value="bigb"  /> 

<param  name="bgcolor"  value="#DEDEBC"  /> 

<embed  src="buttonl.swf'  widtb="100"  beigbt="23"  quality="bigb" 
pluginspage="bttp://www.macromedia.com/sbockwave/download/index.cgi?Pl_Prod_Ve 
rsion=SbockwaveFlasb"  type="application/x-sbockwave-flasb"  bgcolor="#DEDEBC" 
name="  Searcb"></embed> 

</object></td> 

<td  widtb="14%"  bgcolor="#DEDEBC"><object 

classid="clsid:D27CDB6E-AE6D-llcf-96B8-444553540000" 

codebase="bttp://download.macromedia.com/pub/sbockwave/cabs/flasb/swflasb.cab#ver 
sion=5,0,0,0"  widtb="100"  beigbt="23"> 

<param  name="movie"  value="button3.swf'  /> 

<param  name="quality"  value="bigb"  /> 

<param  name="bgcolor"  value="#DEDEBC"  /> 

<embed  src="button3.swf'  quality="bigb" 

pluginspage="bttp://www.macromedia.com/sbockwave/download/index.cgi?Pl_Prod_Ve 
rsion=SbockwaveFlasb"  type="application/x-sbockwave-flasb"  widtb="100"  beigbt="23" 
bgcolor="#DEDEBC"></embed> 

</object></td> 

<td  widtb="14%"  bgcolor="#DEDEBC"><object 

classid="clsid:D27CDB6E-AE6D-llcf-96B8-444553540000" 

codebase="bttp://download.macromedia.com/pub/sbockwave/cabs/flasb/swflasb.cab#ver 
sion=5,0,0,0"  widtb="100"  beigbt="23"> 

<param  name="movie"  value="button4.swf'  /> 

<param  name="quality"  value="bigb"  /> 

<param  name="bgcolor"  value="#DEDEBC"  /> 
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<embed  src="button4.swf'  quality="high" 

pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?Pl_Prod_Ve 
rsion=ShockwaveFlash"  type="application/x-shockwave-flash"  width="100"  height="23" 
bgcolor="#DEDEBC"></embed> 

</object></td> 

<td  width="14%"  bgcolor="#DEDEBC"><object 

classid="clsid:D27CDB6E-AE6D-llcf-96B8-444553540000" 

codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#ver 
sion=5, 0,0,0"  width="103"  height="24"> 

<param  name="movie"  value="button5.swf'  /> 

<param  name="quality"  value="high"  /> 

<param  name="bgcolor"  value="#DEDEBC"  /> 

<embed  src="button5.swf'  quality="high" 

pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?Pl_Prod_Ve 
rsion=ShockwaveFlash"  type="application/x-shockwave-flash"  width="103"  height="24" 
bgcolor="#DEDEBC"></embed> 

</object></td> 

</tr> 

</table></td> 

</tr> 

<tr> 

<td><hr  />  <h3  align="center">  Delete  Course  Record  </h3> 

<hr  />  <p  align="center"  class="stylel">***Are  you  sure  you  want  to 
Delete  the  <strong><%=(rs_course.Fields.Item("courseCode").Value)%>  </strong> 
Course?***  </p> 

<p  align="center"  class="stylel"> 

<input  name="Submit2"  type="button" 

onclick="MM_goToURL('parentVForm_Course_Master.asp');retum 
document.MM_retumValue"  value="Cancel"  /> 

</p> 

<form  ACTION="<%=MM_editAction%>"  METHOD="POST" 
name="forml"  id="formr'> 

<table  width="95%"  border="l"  cellspacing="0"  cellpadding="3"> 

<tr> 

<td>Course  Code  </td> 

<td><input  name="courseCode"  type="text"  id="courseCode" 

value="<%=(rs_course.Fields.Item("courseCode").Value)%>"  /></td> 

</tr> 

<tr> 

<td>Course  Name  </td> 

<td><input  name="courseName"  type="text"  id="courseName" 

value="<%=(rs_course.Fields.Item("courseName").Value)%>"  /></td> 

</tr> 

<tr> 

<td>Course  Description  </td> 
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<td><textarea  name="courseDescription"  cols="50" 

id="courseDescription"><%=(rs_course. Fields. Item("courseDescription").Value)%></te 
xtarea></td> 

</tr> 

<tr> 

<td>&nbsp;</td> 

<td><input  name=" Submit"  type="submit"  value="Delete"  /></td> 

</tr> 

</table> 

<input  type="hidden"  name="MM_delete"  value="forml"> 

<input  type="hidden"  name="MM_recordId"  value="<%= 
rs_course.Fields.Item("courseid"). Value  %>"> 

</form>  <p  align="left">&nbsp;</p></td> 

</tr> 

<tr> 

<td>&nbsp;  </td> 

</tr> 

</table> 

<p>&nbsp;</p> 

<p>&nbsp;</p> 

<^ody> 

</html> 

<% 

rs_course.Close() 

Set  rs_course  =  Nothing 

%> 


125 


10.  Form_Delete_Image.asp 

<%@LANGUAGE=" VBSCRIPT"  CODEPAGE='T252"%> 

<!— #include  file="Connections/conn_DistanceLeaming.asp"  — > 

<% 

'  ***  Restrict  Access  To  Page:  Grant  or  deny  access  to  this  page 
MM_authorizedErsers="admin, professor" 

MM_authFailedURL="login.asp" 

MM_grantAccess=false 
If  Session("MM_Usemame")  <>  ""  Then 
If  (false  Or  CStr(Session("MM_UserAuthorization"))="")  Or  _ 

(InStr(  1  ,MM_authorizedUsers,Session("MM_UserAuthorization"))>=  1 ) 

Then 

MM_grantAccess  =  true 
End  If 
End  If 

If  Not  MM_grantAccess  Then 
MM_qsChar  =  "?" 

If  (InStr(l,MM_authFailedURL,"?")  >=  1)  Then  MM_qsChar  =  "&" 
MM_referrer  =  Request.  ServerVariables("URL") 

if  (Len(Request. Query StringO)  >  0)  Then  MM_referrer  =  MM_referrer  &  "?"  & 
Request.QueryStringO 

MM_authFailedURL  =  MM_authFailedURL  &  MM_qsChar  &  "accessdenied=" 
&  Server.URLEncode(MM_referrer) 

Response.Redirect(MM_authFailedURL) 

End  If 

%> 

<% 

'  ***  Edit  Operations:  declare  variables 

Dim  MMeditAction 
Dim  MMabortEdit 
Dim  MMeditQuery 
Dim  MM_editCmd 

Dim  MM_editConnection 
Dim  MM_editTable 
Dim  MMeditRedirectUrl 
Dim  MMeditColumn 
Dim  MM_recordId 

Dim  MM  fleldsStr 
Dim  MMcolumnsStr 
Dim  MMfields 
Dim  MM_columns 
Dim  MM_typeArray 
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Dim  MMformVal 
Dim  MMdelim 
Dim  MMaltVal 
Dim  MM_emptyVal 
Dim  MM_i 

MM_editAction  =  CStr(Request.ServerVariables("SCRIPT_NAME")) 

If  (Request.QueryString  <>  "")  Then 

MM_edit Action  =  MM_edit Action  &  "?"  & 

Server.HTMLEncode(Request.QueryString) 

End  If 

'  boolean  to  abort  record  edit 
MM_abortEdit  =  false 

'  query  string  to  execute 
MM_editQuery  =  "" 

%> 

<% 

'  ***  Delete  Record:  declare  variables 

if  (CStr(Request("MM_delete"))  =  "forml"  And  CStr(Request("MM_recordId")) 
<>  "")  Then 

MMeditConnection  =  MM_conn_DistanceLeaming_STRING 
MM_editTable  =  "Graphic" 

MM_editColumn  =  "graphicid" 

MM_recordId  =  ""  +  Request.Form("MM_recordId")  +  "" 

MMeditRedirectUrl  =  "Form_Image_Master.asp" 

'  append  the  query  string  to  the  redirect  URL 

If  (MM  editRedirectUrl  <>  ""  And  Request.QueryString  <>  "")  Then 
If  (InStr(l,  MM_editRedirectUrl,  "?",  vbTextCompare)  =  0  And 

Request.QueryString  <>  "")  Then 

MM_editRedirectUrl  =  MM_editRedirectUrl  &  "?"  &  Request.QueryString 
Else 

MM_editRedirectUrl  =  MM_editRedirectUrl  &  "&"  &  Request.QueryString 
End  If 
End  If 

End  If 

%> 

<% 

'  ***  Delete  Record:  construct  a  sql  delete  statement  and  execute  it 
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If  (CStr(Request("MM_delete"))  <>  ""  And  CStr(Request("MM_recordId"))  <> 
"")  Then 

'  create  the  sql  delete  statement 

MM_editQuery  =  "delete  from  "  &  MM_editTable  &  "  where  "  & 
MM_editColumn  &  "  =  "  &  MM_recordId 

If  (Not  MM_abortEdit)  Then 
'  execute  the  delete 

Set  MM_editCmd  =  Server.  CreateObject("ADODB. Command") 
MMeditCmd.ActiveConnection  =  MMeditConnection 
MMeditCmd.CommandText  =  MMeditQuery 
MM_editCmd.Execute 
MM_editCmd.ActiveConnection.Close 

If  (MM_editRedirectUrl  <>  "")  Then 
Response.Redirect(MM_editRedirectUrl) 

End  If 
End  If 

End  If 

%> 

<% 

Dim  rsimage _ MMColParam 

rs_image _ MMColParam  =  "1 " 

If  (Request.QueryStringC'graphicid")  <>  "")  Then 

rs_image _ MMColParam  =  Request.QueryStringC'graphicid") 

End  If 
%> 

<% 

Dim  rs  image 

Dim  rsimagenumRows 

Set  rs  image  =  Server.CreateObject("ADODB.Recordset") 
rs_image.ActiveConnection  =  MMconnDistanceLeamingSTRING 
rs_image. Source  =  "SELECT  *  FROM  Graphic  WHERE  graphicid  =  "  + 

Replace(rs_image _ MMColParam, """)  +  "" 

rs_image.CursorType  =  0 
rs_image.CursorLocation  =  2 
rs_image.LockType  =  1 
rs_image.Open() 

rs_image_numRows  =  0 

%> 

<!DOCTYPE  html  PUBLIC  "-//W3C//DTD  XHTML  1.0  Transitional//EN" 
"http://www.w3  .org/TR/xhtml  1/DTD/xhtml  1  -transitional.dtd"> 
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<html  xmlns="http  ://www. w3  .org/ 1 999/xhtml"> 

<head> 

<title>Distance  Learning:  Form  Delete  Image</title> 

<meta  http-equiv="Content-Type"  eontent="text/html;  charset=iso-8859-l"  /> 
<link  href="DLStylesheet.css"  rel="stylesheet"  type="text/ess"  /> 

<style  type="text/css"> 

<!- 
a:  link  { 

color:  #CC3300; 

} 

a:visited  { 

color:  #CC3399; 

} 

a:hover  { 

color:  #000066; 

} 

a:  active  { 

color:  #339900; 

} 

. style  1  {color:  #FF0000} 

— > 

</style> 

<script  language="JavaScript"  type="text/JavaScript"> 

<!- 

function  MM_goToURL()  { //v3.0 

var  i,  args=MM_goToURL. arguments;  document.MM_retumValue  =  false; 
for  (i=0;  i<(args.length-l);  i+=2)  eval(args[i]+".location="'+args[i+l]+""'); 

} 

//-> 

</script> 

</head> 

<body> 

<table  width="95%"  height="214"  border="0"  align="center"  cellpadding="3" 
cellspacing="0"> 

<tr> 

<td  height="109"><table  width="100%"  border="0"  align="left" 
cellpadding="3"  cellspacing="0"  bgcolor="#DEDEBC"> 

<tr> 

<td  width="88%"  align="  center"  valign="middle" 

bgcolor="#DEDEBC"><img  src="Images/nps_banner.gif'  width="447"  height="97"  /> 

</td> 

</tr> 

</table></td> 

</tr> 

<tr> 
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<td  height="50"><table  width="72%"  border="0"  align="center" 
cellpadding="3"  cellspacing="0"  bordercolor="#F6F6F3"> 

<tr> 

<td  widtb="14%"  bgcolor="#DEDEBC"><object 

classid="clsid:D27CDB6E-AE6D-llcf-96B8-444553540000" 

codebase="bttp://download.macromedia.com/pub/sbockwave/cabs/flasb/swflasb.cab#ver 
sion=5, 0,0,0"  widtb="103"  beigbt="24"> 

<param  name="movie"  value="button2.swf'  /> 

<param  name="quality"  value="bigb"  /> 

<param  name="bgcolor"  value="#DEDEBC"  /> 

<embed  src="button2.swf'  quality="bigb" 

pluginspage="bttp://www.macromedia.com/sbockwave/download/index.cgi?Pl_Prod_Ve 
rsion=SbockwaveFlasb"  type="application/x-sbockwave-flasb"  widtb="103"  beigbt="24" 
bgcolor="#DEDEBC"></embed> 

</object></td> 

<td  widtb="14%"  bgcolor="#DEDEBC"><object 

classid="clsid:D27CDB6E-AE6D-llcf-96B8-444553540000" 

codebase="btq)://download.macromedia.com/pub/sbockwave/cabs/flasb/swflasb.cab#ver 
sion=5,0,0,0"  name=" Search"  widtb="100"  beigbt="23"  id="Searcb"> 

<param  name="movie"  value="buttonl.swf'  /> 

<param  name="quality"  value="bigb"  /> 

<param  name="bgcolor"  value="#DEDEBC"  /> 

<embed  src="buttonl.swf'  widtb="100"  beigbt="23"  quality="bigb" 
pluginspage="bttp://www.macromedia.com/sbockwave/download/index.cgi?Pl_Prod_Ve 
rsion=SbockwaveFlasb"  type="application/x-sbockwave-flasb"  bgcolor="#DEDEBC" 
name="  Searcb"></embed> 

</object></td> 

<td  widtb="14%"  bgcolor="#DEDEBC"><object 

classid="clsid:D27CDB6E-AE6D-llcf-96B8-444553540000" 

codebase="bttp://download.macromedia.com/pub/sbockwave/cabs/flasb/swflasb.cab#ver 
sion=5,0,0,0"  widtb="100"  beigbt="23"> 

<param  name="movie"  value="button3.swf'  /> 

<param  name="quality"  value="bigb"  /> 

<param  name="bgcolor"  value="#DEDEBC"  /> 

<embed  src="button3.swf'  quality="bigb" 

pluginspage="bttp://www.macromedia.com/sbockwave/download/index.cgi?Pl_Prod_Ve 
rsion=SbockwaveFlasb"  type="application/x-sbockwave-flasb"  widtb="100"  beigbt="23" 
bgcolor="#DEDEBC"></embed> 

</object></td> 

<td  widtb="14%"  bgcolor="#DEDEBC"><object 

classid="clsid:D27CDB6E-AE6D-llcf-96B8-444553540000" 

codebase="bttp://download.macromedia.com/pub/sbockwave/cabs/flasb/swflasb.cab#ver 
sion=5,0,0,0"  widtb="100"  beigbt="23"> 

<param  name="movie"  value="button4.swf '  /> 

<param  name="quality"  value="bigb"  /> 

<param  name="bgcolor"  value="#DEDEBC"  /> 


130 


<embed  src="button4.swf'  quality="high" 

pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?Pl_Prod_Ve 
rsion=ShockwaveFlash"  type="application/x-shockwave-flash"  width="100"  height="23" 
bgcolor="#DEDEBC"></embed> 

</object></td> 

<td  width="14%"  bgcolor="#DEDEBC"><object 

classid="clsid:D27CDB6E-AE6D-llcf-96B8-444553540000" 

codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#ver 
sion=5, 0,0,0"  width="103"  height="24"> 

<param  name="movie"  value="button5.swf'  /> 

<param  name="quality"  value="high"  /> 

<param  name="bgcolor"  value="#DEDEBC"  /> 

<embed  src="button5.swf'  quality="high" 

pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?Pl_Prod_Ve 
rsion=ShockwaveFlash"  type="application/x-shockwave-flash"  width="103"  height="24" 
bgcolor="#DEDEBC"></embed> 

</object></td> 

</tr> 

</table></td> 

</tr> 

<tr> 

<td><hr  />  <h3  align="center">  Delete  Image  Record  </h3> 

<hr/> 

<p  align="center"  class="style !">*** Are  yiu  sure  you  want  to  Delete  the 
<strong><%=(rs_image.Fields.Item("graphicName").Value)%>  </strong>Image 

Record?***  </p> 

<p  align="center"> 

<input  name="  Submit"  type="  submit" 

onclick="MM_goToURL('parent','Form_Image_Master.asp?subsectionid=<%= 
Request.QueryStringC'subsectionid")  %>');retum  document.MM_returnValue" 
value="Cancel"  /> 

</p>  <form  name="forml"  id="forml"  method="POST" 

action="<%=MM_editAction%>"> 

<table  width="95%"  border="l"  cellspacing="0"  cellpadding="3"> 

<tr> 

<td  width="38%">Image  Name  </td> 

<td  width="62%"><input  name="graphicName"  type="text" 
id="graphicName"  value="<%=(rs_image.Fields.Item("graphicName").Value)%>" 

size="60"  /></td> 

</tr> 

<tr> 

<td>Image  Description  </td> 

<td><textarea  name="graphicDescription"  cols="60"  rows="5" 
id="graphicDescription"><%=(rs_image.Fields.Item("graphicDescription").Value)%></t 
extarea></td> 

</tr> 
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<tr> 

<td>Image  Relative  Path  </td> 

<td><input  name="graphicPath"  type="text"  id="graphicPath" 
value="<%=(rs_image.Fields.Item("graphicPath").Value)%>"  size="60"  /></td> 

</tr> 

<tr> 

<td><input  name=" author"  type="hidden"  id="author"  value="<%= 
Session("MM_Usemame")  %>"  /> 

<input  name="subsectionid"  type="hidden"  id="subsectionid" 
value="<%=  Request.QueryStringC'subsectionid")  %>"  /></td> 

<td><input  type="  submit"  name="Submit2"  value="  Submit"  /></td> 

</tr> 

</table> 

<input  type="hidden"  name="MM_delete"  value="forml"> 

<input  type="hidden"  name="MM_recordId"  value="<%= 
rs_image.Fields.Item("graphicid"). Value  %>"> 

</form>  <p  align="left">&nbsp;</p></td> 

</tr> 

<tr> 

<td>&nbsp;  </td> 

</tr> 

</table> 

<p>&nbsp;</p> 

<p>&nbsp;</p> 

</body> 

</html> 

<% 

rs_image.Close() 

Set  rs_image  =  Nothing 

%> 
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11.  Form_Delete_Subject.asp 

<%@LANGUAGE=" VBSCRIPT"  CODEPAGE='T252"%> 

<!— #include  file="Connections/conn_DistanceLeaming.asp"  — > 

<% 

'  ***  Restrict  Access  To  Page:  Grant  or  deny  access  to  this  page 
MM_authorizedErsers="admin, professor" 

MM_authFailedURL="login.asp" 

MM_grantAccess=false 
If  Session("MM_Usemame")  <>  ""  Then 
If  (false  Or  CStr(Session("MM_UserAuthorization"))="")  Or  _ 

(InStr(  1  ,MM_authorizedUsers,Session("MM_UserAuthorization"))>=  1 ) 

Then 

MM_grantAccess  =  true 
End  If 
End  If 

If  Not  MM_grantAccess  Then 
MM_qsChar  =  "?" 

If  (InStr(l,MM_authFailedURL,"?")  >=  1)  Then  MM_qsChar  =  "&" 
MM_referrer  =  Request.  ServerVariables("URL") 

if  (Len(Request. Query StringO)  >  0)  Then  MM_referrer  =  MM_referrer  &  "?"  & 
Request.QueryStringO 

MM_authFailedURL  =  MM_authFailedURL  &  MM_qsChar  &  "accessdenied=" 
&  Server.URLEncode(MM_referrer) 

Response.Redirect(MM_authFailedURL) 

End  If 

%> 

<% 

'  ***  Edit  Operations:  declare  variables 

Dim  MMeditAction 
Dim  MMabortEdit 
Dim  MMeditQuery 
Dim  MM_editCmd 

Dim  MM_editConnection 
Dim  MM_editTable 
Dim  MMeditRedirectUrl 
Dim  MMeditColumn 
Dim  MM_recordId 

Dim  MM  fleldsStr 
Dim  MMcolumnsStr 
Dim  MMfields 
Dim  MM_columns 
Dim  MM_typeArray 


133 


Dim  MMformVal 
Dim  MMdelim 
Dim  MMaltVal 
Dim  MM_emptyVal 
Dim  MM_i 

MM_editAction  =  CStr(Request.ServerVariables("SCRIPT_NAME")) 

If  (Request.QueryString  <>  "")  Then 

MM_edit Action  =  MM_edit Action  &  "?"  & 

Server.HTMLEncode(Request.QueryString) 

End  If 

'  boolean  to  abort  record  edit 
MM_abortEdit  =  false 

'  query  string  to  execute 
MM_editQuery  =  "" 

%> 

<% 

'  ***  Delete  Record:  declare  variables 

if  (CStr(Request("MM_delete"))  =  "frm_subject"  And 

CStr(Request("MM_recordId"))  <>  "")  Then 

MMeditConnection  =  MM_conn_DistanceLeaming_STRING 
MM_editTable  =  "Subject" 

MM_editColumn  =  "subjectid" 

MM_recordId  =  ""  +  Request.Form("MM_recordId")  +  "" 

MM_editRedirectUrl  =  "Form_Subject_Master.asp" 

'  append  the  query  string  to  the  redirect  URL 

If  (MM  editRedirectUrl  <>  ""  And  Request.QueryString  <>  "")  Then 
If  (InStr(l,  MM_editRedirectUrl,  "?",  vbTextCompare)  =  0  And 

Request.QueryString  <>  "")  Then 

MM_editRedirectUrl  =  MM_editRedirectUrl  &  "?"  &  Request.QueryString 
Else 

MM_editRedirectUrl  =  MM_editRedirectUrl  &  "&"  &  Request.QueryString 
End  If 
End  If 

End  If 

%> 

<% 

'  ***  Delete  Record:  construct  a  sql  delete  statement  and  execute  it 
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If  (CStr(Request("MM_delete"))  <>  ""  And  CStr(Request("MM_recordId"))  <> 
"")  Then 

'  create  the  sql  delete  statement 

MM_editQuery  =  "delete  from  "  &  MM_editTable  &  "  where  "  & 
MM_editColumn  &  "  =  "  &  MM_recordId 

If  (Not  MM_abortEdit)  Then 
'  execute  the  delete 

Set  MM_editCmd  =  Server.  CreateObject("ADODB. Command") 
MMeditCmd.ActiveConnection  =  MMeditConnection 
MMeditCmd.CommandText  =  MMeditQuery 
MM_editCmd.Execute 
MM_editCmd.ActiveConnection.Close 

If  (MM_editRedirectUrl  <>  "")  Then 
Response.Redirect(MM_editRedirectUrl) 

End  If 
End  If 

End  If 

%> 

<% 

Dim  rssubject _ MMColParam 

rs_subject _ MMColParam  =  "1" 

If  (Request.QueryStringC'subjectid")  <>  "")  Then 

rs_subject _ MMColParam  =  Request.QueryStringC'subjectid") 

End  If 
%> 

<% 

Dim  rs  subject 

Dim  rs_subject_numRows 

Set  rs  subject  =  Server.CreateObject("ADODB.Recordset") 
rs_subject.ActiveConnection  =  MM_conn_DistanceLeaming_STRING 
rs_subject. Source  =  "SELECT  *  FROM  Subject  WHERE  subjectid  =  "  + 

Replace(rs_subject _ MMColParam,  """)  +  "" 

rs_subject.CursorType  =  0 
rs_subject.CursorLocation  =  2 
rs_subject.LockType  =  1 
rs_subj  ect.  Open() 

rs_subject_numRows  =  0 

%> 

<!DOCTYPE  html  PUBLIC  "-//W3C//DTD  XHTML  1.0  Transitional//EN" 
"http://www.w3  .org/TR/xhtml  1/DTD/xhtml  1  -transitional.dtd"> 
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<html  xmlns="http  ://www. w3  .org/ 1 999/xhtml"> 

<head> 

<title>Distance  Learning:  Delete  Subjeet  Reeord</title> 

<meta  http-equiv="Content-Type"  eontent="text/html;  charset=iso-8859-l"  /> 
<link  href="DLStylesheet.css"  rel="stylesheet"  type="text/ess"  /> 

<style  type="text/css"> 

<!- 
a:  link  { 

color:  #CC3300; 

} 

a:visited  { 

color:  #CC3399; 

} 

a:hover  { 

color:  #000066; 

} 

a:  active  { 

color:  #339900; 

} 

.style2  {color:  #CC0000} 

— > 

</style> 

<script  language="JavaScript"  type="text/JavaScript"> 

<!- 

function  MM_goToURL()  { //v3.0 

var  i,  args=MM_goToURL. arguments;  document.MM_retumValue  =  false; 
for  (i=0;  i<(args.length-l);  i+=2)  eval(args[i]+".location="'+args[i+l]+""'); 

} 

//-> 

</script> 

</head> 

<body> 

<table  width="95%"  height="214"  border="0"  align="center"  cellpadding="3" 
cellspacing="0"> 

<tr> 

<td  height="109"><table  width="100%"  border="0"  align="left" 
cellpadding="3"  cellspacing="0"  bgcolor="#DEDEBC"> 

<tr> 

<td  width="88%"  align="  center"  valign="middle" 

bgcolor="#DEDEBC"><img  src="Images/nps_banner.gif'  width="447"  height="97"  /> 

</td> 

</tr> 

</table></td> 

</tr> 

<tr> 
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<td  height="50"><table  width="72%"  border="0"  align="center" 
cellpadding="3"  cellspacing="0"  bordercolor="#F6F6F3"> 

<tr> 

<td  widtb="14%"  bgcolor="#DEDEBC"><object 

classid="clsid:D27CDB6E-AE6D-llcf-96B8-444553540000" 

codebase="bttp://download.macromedia.com/pub/sbockwave/cabs/flasb/swflasb.cab#ver 
sion=5, 0,0,0"  widtb="103"  beigbt="24"> 

<param  name="movie"  value="button2.swf'  /> 

<param  name="quality"  value="bigb"  /> 

<param  name="bgcolor"  value="#DEDEBC"  /> 

<embed  src="button2.swf'  quality="bigb" 

pluginspage="bttp://www.macromedia.com/sbockwave/download/index.cgi?Pl_Prod_Ve 
rsion=SbockwaveFlasb"  type="application/x-sbockwave-flasb"  widtb="103"  beigbt="24" 
bgcolor="#DEDEBC"></embed> 

</object></td> 

<td  widtb="14%"  bgcolor="#DEDEBC"><object 

classid="clsid:D27CDB6E-AE6D-llcf-96B8-444553540000" 

codebase="btq)://download.macromedia.com/pub/sbockwave/cabs/flasb/swflasb.cab#ver 
sion=5,0,0,0"  name=" Search"  widtb="100"  beigbt="23"  id="Searcb"> 

<param  name="movie"  value="buttonl.swf'  /> 

<param  name="quality"  value="bigb"  /> 

<param  name="bgcolor"  value="#DEDEBC"  /> 

<embed  src="buttonl.swf'  widtb="100"  beigbt="23"  quality="bigb" 
pluginspage="bttp://www.macromedia.com/sbockwave/download/index.cgi?Pl_Prod_Ve 
rsion=SbockwaveFlasb"  type="application/x-sbockwave-flasb"  bgcolor="#DEDEBC" 
name="  Searcb"></embed> 

</object></td> 

<td  widtb="14%"  bgcolor="#DEDEBC"><object 

classid="clsid:D27CDB6E-AE6D-llcf-96B8-444553540000" 

codebase="bttp://download.macromedia.com/pub/sbockwave/cabs/flasb/swflasb.cab#ver 
sion=5,0,0,0"  widtb="100"  beigbt="23"> 

<param  name="movie"  value="button3.swf'  /> 

<param  name="quality"  value="bigb"  /> 

<param  name="bgcolor"  value="#DEDEBC"  /> 

<embed  src="button3.swf'  quality="bigb" 

pluginspage="bttp://www.macromedia.com/sbockwave/download/index.cgi?Pl_Prod_Ve 
rsion=SbockwaveFlasb"  type="application/x-sbockwave-flasb"  widtb="100"  beigbt="23" 
bgcolor="#DEDEBC"></embed> 

</object></td> 

<td  widtb="14%"  bgcolor="#DEDEBC"><object 

classid="clsid:D27CDB6E-AE6D-llcf-96B8-444553540000" 

codebase="bttp://download.macromedia.com/pub/sbockwave/cabs/flasb/swflasb.cab#ver 
sion=5,0,0,0"  widtb="100"  beigbt="23"> 

<param  name="movie"  value="button4.swf'  /> 

<param  name="quality"  value="bigb"  /> 

<param  name="bgcolor"  value="#DEDEBC"  /> 
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<embed  src="button4.swf'  quality="high" 

pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?Pl_Prod_Ve 
rsion=ShockwaveFlash"  type="application/x-shockwave-flash"  width="100"  height="23" 
bgcolor="#DEDEBC"></embed> 

</object></td> 

<td  width="14%"  bgcolor="#DEDEBC"><object 

classid="clsid:D27CDB6E-AE6D-llcf-96B8-444553540000" 

codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#ver 
sion=5, 0,0,0"  width="103"  height="24"> 

<param  name="movie"  value="button5.swf'  /> 

<param  name="quality"  value="high"  /> 

<param  name="bgcolor"  value="#DEDEBC"  /> 

<embed  src="button5.swf'  quality="high" 

pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?Pl_Prod_Ve 
rsion=ShockwaveFlash"  type="application/x-shockwave-flash"  width="103"  height="24" 
bgcolor="#DEDEBC"></embed> 

</object></td> 

</tr> 

</table></td> 

</tr> 

<tr> 

<td><hr  />  <h3  align="center">  Delete  Subject  Record  </h3> 

<hr/> 

<p  align="center"  class="style2">***Are  you  sure  you  want  to  Delete 
the&nbsp;<strong><%=(rs_subject.Fields.Item("subjectName").Value)%></strong>&nb 
sp;Subject?***</p> 

<p  align="center"  class="style2"> 

<input  name="Submit22"  type="button" 

onclick="MM_goToURL('parent','Form_Subject_Master.asp?courseid=<%= 
Request.QueryStringC'courseid")  %>');retum  document.MM_retumValue" 

value="Cancel"  /> 

</p> 

<form  name="frm_subject"  id="frm_subject"  method="POST" 
action="<%=MM_editAction%>"> 

<table  width="95%"  border="l"  align="  center"  cellpadding="3" 
cellspacing="0"> 

<tr> 

<td>Subject  ID  </td> 

<td><input  nanie="subjectID"  type="text"  id="subjectID" 
value="<%=(rs_subject.Fields.Item("subjectid").Value)%>"  /></td> 

</tr> 

<tr> 

<td>Subject  Name  </td> 

<td><input  name="subjectName"  type="text"  id="subjectName" 
value="<%=(rs_subject.Fields.Item("subjectName").Value)%>"  size="60"  /></td> 

</tr> 
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<tr> 

<td>Subject  Description  </td> 

<td><textarea  name="subjectDescription"  cols="60" 

id="subjectDescription"><%=(rs_subject.Fields.Item("subjectDescription").Value)%></t 
extarea></td> 

</tr> 

<tr> 

<td><input  name="courseid"  type="hidden"  id="courseid"  value="<%= 
Request.QueryStringC'courseid")  %>"  /></td> 

<td>  <input  type=" submit"  name="Submit"  value="Delete" 

/></td></tr> 

</table> 

<input  type="hidden"  name="MM_delete"  value="frm_subject"> 

<input  type="hidden"  name="MM_recordId"  value="<%= 
rs_subject.Fields.Item("subjectid"). Value  %>"> 

</form>  <p  align="left">&nbsp;</p></td> 

</tr> 

<tr> 

<td>&nbsp;  </td> 

</tr> 

</table> 

<p>&nbsp;</p> 

<p>&nbsp;</p> 

</body> 

</html> 

<% 

rs_subject.Close() 

Set  rs_subject  =  Nothing 

%> 
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12.  Form_Delete_Subsection.asp 

<%@LANGUAGE=" VBSCRIPT"  CODEPAGE='T252"%> 

<!— #include  file="Connections/conn_DistanceLeaming.asp"  — > 

<% 

'  ***  Restrict  Access  To  Page:  Grant  or  deny  access  to  this  page 
MM_authorizedUsers="admin, professor" 

MM_authFailedURL="  login,  asp" 

MM_grantAccess=false 
If  Session("MM_Usemame")  <>  ""  Then 
If  (false  Or  CStr(Session("MM_UserAuthorization"))="")  Or  _ 

(InStr(l,MM_authorizedUsers,Session("MM_UserAuthorization"))>=l) 

Then 

MM_grantAccess  =  true 
End  If 
End  If 

If  Not  MM_grantAccess  Then 
MM_qsChar  =  "?" 

If  (InStr(l,MM_authFailedURL,"?")  >=  1)  Then  MM  qsChar  =  "&" 
MM_referrer  =  Request.  ServerVariables("URL") 

if  (Len(Request.QueryString())  >  0)  Then  MM_referrer  =  MM_referrer  &  "?"  & 
Request.QueryStringO 

MM_authFailedURL  =  MM_authFailedURL  &  MM_qsChar  &  "accessdenied=" 
&  Server.URLEncode(MM_referrer) 

Response.Redirect(MM_authFailedURL) 

End  If 

%> 

<% 

'  ***  Edit  Operations:  declare  variables 

Dim  MMeditAction 
Dim  MMabortEdit 
Dim  MMeditQuery 
Dim  MM_editCmd 

Dim  MM_editConnection 
Dim  MM_editTable 
Dim  MMeditRedirectUrl 
Dim  MMeditColumn 
Dim  MM_recordId 

Dim  MMfieldsStr 
Dim  MMcolumnsStr 
Dim  MM_fields 
Dim  MM  columns 
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Dim  MMtypeArray 
Dim  MMformVal 
Dim  MMdelim 
Dim  MMaltVal 
Dim  MM_emptyVal 
Dim  MM_i 

MM_editAction  =  CStr(Request.ServerVariables("SCRIPT_NAME")) 

If  (Request.QueryString  <>  "")  Then 

MM_edit  Action  =  MM_edit  Action  &  "?"  & 

Server.HTMLEncode(Request.QueryString) 

End  If 

'  boolean  to  abort  record  edit 
MM_abortEdit  =  false 

'  query  string  to  execute 
MM_editQuery  = "" 

%> 

<% 

'  ***  Delete  Record:  declare  variables 

if  (CStr(Request("MM_delete"))  =  "forml"  And  CStr(Request("MM_recordId")) 
<>  "")  Then 

MMeditConnection  =  MM_conn_DistanceLeaming_STRING 
MM_editTable  =  "Subsection" 

MM_editColumn  =  "subsectionid" 

MM_recordId  =  ""  +  Request.Form("MM_recordId")  +  "" 

MM_editRedirectUrl  =  "Form_Subsection_Master.asp" 

'  append  the  query  string  to  the  redirect  URL 

If  (MMeditRedirectUrl  o  ""  And  Request.QueryString  o  "")  Then 
If  (InStr(I,  MM_editRedirectUrI,  vbTextCompare)  =  0  And 

Request.QueryString  <> "")  Then 

MM_editRedirectUrI  =  MM_editRedirectUrl  &  "?"  &  Request.QueryString 
Else 

MM_editRedirectUrl  =  MM_editRedirectUrl  &  "&"  &  Request.QueryString 
End  If 
End  If 

End  If 

%> 

<% 

'  ***  Delete  Record:  construct  a  sql  delete  statement  and  execute  it 
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If  (CStr(Request("MM_delete"))  <>  ""  And  CStr(Request("MM_recordId"))  <> 
"")  Then 

'  create  the  sql  delete  statement 

MM_editQuery  =  "delete  from  "  &  MM_editTable  &  "  where  "  & 
MM_editColumn  &  "  =  "  &  MM_recordId 

If  (Not  MM_abortEdit)  Then 
'  execute  the  delete 

Set  MM_editCmd  =  Server.  CreateObject("ADODB. Command") 
MMeditCmd.ActiveConnection  =  MMeditConnection 
MMeditCmd.CommandText  =  MMeditQuery 
MM_editCmd.Execute 
MM_editCmd.ActiveConnection.Close 

If  (MM_editRedirectUrl  <>  "")  Then 
Response.Redirect(MM_editRedirectUrl) 

End  If 
End  If 

End  If 

%> 

<% 

Dim  rssubsection _ MMCoIParam 

rs_subsection _ MMCoIParam  =  "  1 " 

If  (Request.QueryStringC'subsectionid")  <>  "")  Then 

rssubsection _ MMCoIParam  =  Request.QueryString("subsectionid") 

End  If 
%> 

<% 

Dim  rs  subsection 

Dim  rs_subsection_numRows 

Set  rs  subsection  =  Server.CreateObject("ADODB.Recordset") 
rs_subsection.ActiveConnection  =  MM_conn_DistanceLeaming_STRING 
rs  subsection. Source  =  "SELECT  *  FROM  Subsection  WHERE  subsectionid  =  " 

+  Replace(rs_subsection _ MMCoIParam, """)  +  "" 

rs_subsection.CursorType  =  0 
rs_subsection.CursorLocation  =  2 
rs_subsection.LockType  =  I 
rs_subsection.Open() 

rs_subsection_numRows  =  0 

%> 

<!DOCTYPE  html  PUBLIC  "-//W3C//DTD  XHTML  1.0  Transitional//EN" 
"http://www.w3  .org/TR/xhtml  1/DTD/xhtml  1  -transitional.dtd"> 
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<html  xmlns="http  ://www. w3  .org/ 1 999/xhtml"> 

<head> 

<title>Distance  Learning:  Delete  Subsection  Record</title> 

<meta  http-equiv="Content-Type"  content="text/html;  charset=iso-8859-l"  /> 
<link  href="DLStylesheet.css"  rel="stylesheet"  type="text/css"  /> 

<style  type="text/css"> 

<!- 
a:  link  { 

color:  #CC3300; 

} 

a:visited  { 

color:  #CC3399; 

} 

a:hover  { 

color:  #000066; 

} 

a:  active  { 

color:  #339900; 

} 

.  style  1  { 

color:  #FF0000; 
font-weight:  bold; 

} 

.style4  {color:  #FF0000} 

— > 

</style> 

<script  language="JavaScript"  type="text/JavaScript"> 

<!- 

function  MM_goToURL()  { //v3.0 

var  i,  args=MM_goToURL. arguments;  document.MM_retumValue  =  false; 
for  (i=0;  i<(args.length-l);  i+=2)  eval(args[i]+".location="'-i-args[i-i-l]-i-""'); 

} 

//-> 

</script> 

</head> 

<body> 

<table  width="95%"  height="214"  border="0"  align="center"  cellpadding="3" 
cellspacing="0"> 

<tr> 

<td  height="109"><table  width="100%"  border="0"  align="left" 
cellpadding="3"  cellspacing="0"  bgcolor="#DEDEBC"> 

<tr> 

<td  width="88%"  align="  center"  valign="middle" 

bgcolor="#DEDEBC"><img  src="Images/nps_banner.gif'  width="447"  height="97"  /> 

</td> 

</tr> 
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</table></td> 

</tr> 

<tr> 

<td  height="50"><table  width="72%"  border="0"  align="center" 
cellpadding="3"  cellspacing="0"  bordercolor="#F6F6F3"> 

<tr> 

<td  width="14%"  bgcolor="#DEDEBC"><object 

classid="clsid:D27CDB6E-AE6D-llcf-96B8-444553540000" 

codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#ver 
sion=5, 0,0,0"  width="103"  height="24"> 

<param  name="movie"  value="button2.swf'  /> 

<param  name="quality"  value="high"  /> 

<param  name="bgcolor"  value="#DEDEBC"  /> 

<embed  src="button2.swf'  quality="high" 

pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?Pl_Prod_Ve 
rsion=ShockwaveFlash"  type="application/x-shockwave-flash"  width="103"  height="24" 
bgcolor="#DEDEBC"></embed> 

</object></td> 

<td  width="14%"  bgcolor="#DEDEBC"><object 

classid="clsid:D27CDB6E-AE6D-llcf-96B8-444553540000" 

codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#ver 
sion=5,0,0,0"  name=" Search"  width="100"  height="23"  id="Search"> 

<param  name="movie"  value="buttonLswf'  /> 

<param  name="quality"  value="high"  /> 

<param  name="bgcolor"  value="#DEDEBC"  /> 

<embed  src="buttonLswf'  width="100"  height="23"  quality="high" 
pluginspage="http://www.macromedia.coiii/shockwave/download/index.cgi?Pl_Prod_Ve 
rsion=ShockwaveFlash"  type="application/x-shockwave-flash"  bgcolor="#DEDEBC" 
name="  Search"></embed> 

</object></td> 

<td  width="14%"  bgcolor="#DEDEBC"><object 

classid="clsid:D27CDB6E-AE6D-llcf-96B8-444553540000" 

codebase="http://download.macromedia.coin/pub/shockwave/cabs/flash/swflash.cab#ver 
sion=5,0,0,0"  width="100"  height="23"> 

<param  name="movie"  value="button3.swf'  /> 

<param  name="quality"  value="high"  /> 

<param  name="bgcolor"  value="#DEDEBC"  /> 

<embed  src="button3.swf'  quality="high" 

pluginspage="http://www.macromedia.coiii/shockwave/download/index.cgi?Pl_Prod_Ve 
rsion=ShockwaveFlash"  type="application/x-shockwave-flash"  width="100"  height="23" 
bgcolor="#DEDEBC"></embed> 

</object></td> 

<td  width="14%"  bgcolor="#DEDEBC"><object 

classid="clsid:D27CDB6E-AE6D-llcf-96B8-444553540000" 

codebase="http://download.macromedia.coin/pub/shockwave/cabs/flash/swflash.cab#ver 
sion=5,0,0,0"  width="100"  height="23"> 
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<param  name="movie"  value="button4.swf'  /> 

<param  name="quality"  value="high"  /> 

<param  name="bgcolor"  value="#DEDEBC"  /> 

<embed  src="button4.swf'  quality="high" 

pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?Pl_Prod_Ve 
rsion=ShockwaveFlash"  type="application/x-shockwave-flash"  width="100"  height="23" 
bgcolor="#DEDEBC"></embed> 

</object></td> 

<td  width="14%"  bgcolor="#DEDEBC"><object 

classid="clsid:D27CDB6E-AE6D-llcf-96B8-444553540000" 

codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#ver 
sion=5, 0,0,0"  width="103"  height="24"> 

<param  name="movie"  value="button5.swf'  /> 

<param  name="quality"  value="high"  /> 

<param  name="bgcolor"  value="#DEDEBC"  /> 

<embed  src="button5.swf'  quality="high" 

pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?Pl_Prod_Ve 
rsion=ShockwaveFlash"  type="application/x-shockwave-flash"  width="103"  height="24" 
bgcolor="#DEDEBC"></embed> 

</object></td> 

</tr> 

</table></td> 

</tr> 

<tr> 

<td><hr  />  <h3  align="center">  Delete  Subsection  Record  </h3> 

<hr/> 

<p  align="center"><span  class="style4">***Are  you  sure  you  want  to  Delete 
the</ span>&nbsp;<span 

class="stylel"><%=(rs_subsection.Fields.Item("subsectionName").Value)%>&nbsp;</sp 
anxspan  class="style4">Subsection?***</span></p> 

<p  align="center"> 

<input  name="Submit2"  type="submit" 

onclick="MM_goToURL('parent','Fomi_Subsection_Master.asp?topicid=<%= 
Request.QueryStringC'topicid")  %>');retum  document.MM_retumValue"  value="Cancel" 

/> 

</p> 

<fomi  name="fomil"  id="fomil"  method="POST" 

action="<%=MM  editAction%>"> 


<table  width="95%"  border="l"  align="  center"  cellpadding="3" 
cellspacing="0"> 

<tr> 

<td  width="29%">Subsection  Name  </td> 

<td  width="71%"><input  name="subName"  type="text"  id="subName" 
value="<%=(rs_subsection.Fields.Item("subsectionName").Value)%>"  size="60"  /></td> 
</tr> 
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<tr> 

<td>Subsection  Description  </td> 

<td><textarea  name="description"  cols="60"  rows="5" 
id="description"><%=(rs_subsection.Fields.Item("subsectionDescription").Value)%></te 
xtarea></td> 

</tr> 

<tr> 

<td>Content</td> 

<td><textarea  name="content"  cols="60"  rows="15" 

id="content"><%=(rs_subsection.Fields.Item("content").Value)%></textarea></td> 

</tr> 

<tr> 

<td>Keywords</td> 

<td><textarea  name="keywords"  cols="60" 

id="keywords"><%=(rs_subsection.Fields.Item("keywords").Value)%></textarea></td> 

</tr> 

<tr> 

<td><input  name="topicid"  type="hidden"  id="topicid"  value="<%= 
Request.QueryStringC'topicid")  %>"  /> 

<input  name="author"  type="hidden"  id="author"  value="<%= 
Session("MM_Usemame")  %>"  /></td> 

<td><input  type=" submit"  name="Submit"  value="Delete"  /></td> 

</tr> 

</table> 


<input  type="hidden"  name="MM_delete"  value="forml"> 

<input  type="hidden"  name="MM_recordId"  value="<%= 
rs_subsection.Fields.Item("subsectionid"). Value  %>"> 

</form> 

<p  align="left">&nbsp;</p></td> 

</tr> 

<tr> 

<td>&nbsp;  </td> 

</tr> 

</table> 

<p>&nbsp;</p> 

<p>&nbsp;</p> 

</body> 

</html> 

<% 

rs_subsection.Close() 

Set  rs_subsection  =  Nothing 

%> 
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13.  Form_Delete_Teach.asp 

<%@LANGUAGE=" VBSCRIPT"  CODEPAGE='T252"%> 

<!— #include  file="Connections/conn_DistanceLeaming.asp"  — > 

<% 

'  ***  Restrict  Access  To  Page:  Grant  or  deny  access  to  this  page 
MM_authorizedUsers="  admin" 

MM_authFailedURL="  login,  asp" 

MM_grantAccess=false 
If  Session("MM_Usemame")  <>  ""  Then 
If  (false  Or  CStr(Session("MM_UserAuthorization"))="")  Or  _ 

(InStr(l,MM_authorizedUsers,Session("MM_UserAuthorization"))>=l) 

Then 

MM_grantAccess  =  true 
End  If 
End  If 

If  Not  MM_grantAccess  Then 
MM_qsChar  =  "?" 

If  (InStr(l,MM_authFailedURL,"?")  >=  1)  Then  MM  qsChar  =  "&" 
MM_referrer  =  Request.  ServerVariables("URL") 

if  (Len(Request.QueryString())  >  0)  Then  MM_referrer  =  MM_referrer  &  "?"  & 
Request.QueryStringO 

MM_authFailedURL  =  MM_authFailedURL  &  MM_qsChar  &  "accessdenied=" 
&  Server.URLEncode(MM_referrer) 

Response.Redirect(MM_authFailedURL) 

End  If 

%> 

<% 

'  ***  Edit  Operations:  declare  variables 

Dim  MMeditAction 
Dim  MMabortEdit 
Dim  MMeditQuery 
Dim  MM_editCmd 

Dim  MM_editConnection 
Dim  MM_editTable 
Dim  MMeditRedirectUrl 
Dim  MMeditColumn 
Dim  MM_recordId 

Dim  MMfieldsStr 
Dim  MMcolumnsStr 
Dim  MM_fields 
Dim  MM  columns 
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Dim  MMtypeArray 
Dim  MMformVal 
Dim  MMdelim 
Dim  MMaltVal 
Dim  MM_emptyVal 
Dim  MM_i 

MM_editAction  =  CStr(Request.ServerVariables("SCRIPT_NAME")) 

If  (Request.QueryString  <>  "")  Then 

MM_edit  Action  =  MM_edit  Action  &  "?"  & 

Server.HTMLEncode(Request.QueryString) 

End  If 

'  boolean  to  abort  record  edit 
MM_abortEdit  =  false 

'  query  string  to  execute 
MM_editQuery  = "" 

%> 

<% 

'  ***  Delete  Record:  declare  variables 

if  (CStr(Request("MM_delete"))  =  "forml"  And  CStr(Request("MM_recordId")) 
<>  "")  Then 

MMeditConnection  =  MM_conn_DistanceLeaming_STRING 
MM_editTable  =  "Teach" 

MM_editColumn  =  "teachid" 

MM_recordId  =  ""  +  Request.Form("MM_recordId")  +  "" 

MMeditRedirectUrl  =  "FormMasterTeach.asp" 

'  append  the  query  string  to  the  redirect  URL 

If  (MM  editRedirectUrl  o  ""  And  Request.QueryString  o  "")  Then 
If  (InStr(I,  MM_editRedirectUrI,  vbTextCompare)  =  0  And 

Request.QueryString  <> "")  Then 

MM_editRedirectUrI  =  MM_editRedirectUrl  &  "?"  &  Request.QueryString 
Else 

MM_editRedirectUrl  =  MM_editRedirectUrl  &  "&"  &  Request.QueryString 
End  If 
End  If 

End  If 

%> 

<% 

'  ***  Delete  Record:  construct  a  sql  delete  statement  and  execute  it 
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If  (CStr(Request("MM_delete"))  <>  ""  And  CStr(Request("MM_recordId"))  <> 
"")  Then 

'  create  the  sql  delete  statement 

MM_editQuery  =  "delete  from  "  &  MM_editTable  &  "  where  "  & 
MM_editColumn  &  "  =  "  &  MM_recordId 

If  (Not  MM_abortEdit)  Then 
'  execute  the  delete 

Set  MM_editCmd  =  Server.  CreateObject("ADODB. Command") 
MMeditCmd.ActiveConnection  =  MMeditConnection 
MMeditCmd.CommandText  =  MMeditQuery 
MM_editCmd.Execute 
MM_editCmd.ActiveConnection.Close 

If  (MM_editRedirectUrl  <>  "")  Then 
Response.Redirect(MM_editRedirectUrl) 

End  If 
End  If 

End  If 

%> 

<% 

Dim  rsteach _ MMColParam 

rs_teach _ MMColParam  =  "7" 

If  (Request.QueryStringC'professorid")  <>  "")  Then 

rs_teach _ MMColParam  =  Request.QueryString("professorid") 

End  If 
%> 

<% 

Dim  rs  teach _ ParamCourseid 

rsteach _ ParamCourseid  =  "4" 

If  (Request.QueryStringC'courseid")  <>  "")  Then 

rs_teach _ ParamCourseid  =  Request.QueryStringC'courseid") 

End  If 
%> 

<% 

Dim  rs_teach 

Dim  rs_teach_numRows 

Set  rs  teach  =  Server.CreateObject("ADODB.Recordset") 

rs_teach.ActiveConnection  =  MM_conn_DistanceLeaming_STRING 

rs  teach. Source  =  "SELECT  *  FROM  Teach  WHERE  professorid  =  "  + 

Replace(rs_teach _ MMColParam,  """)  +  "  AND  courseid  =  "  + 

Replace(rs_teach _ ParamCourseid, """)  +  "" 

rs_teach.CursorType  =  0 
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rs_teach.CursorLocation  =  2 
rs_teach.LockType  =  1 
rs_teach.Open() 

rs_teach_numRows  =  0 

%> 

<!DOCTYPE  html  PUBLIC  "-//W3C//DTD  XHTML  1.0  Transitional//LN" 
"http://www.w3  .org/TR/xhtml  1 /DTD/xhtml  1  -transitional.dtd"> 

<html  xmlns="http  ://www. w3  .org/ 1 999/xhtml"> 

<head> 

<title>Distance  Learning:  Delete&quot;Teach&quot;Record</title> 

<meta  http-equiv="Content-Type"  content="text/html;  charset=iso-8859-l"  /> 
<link  href="DLStylesheet.css"  rel="stylesheet"  type="text/css"  /> 

<style  type="text/css"> 

<!- 
a:  link  { 

color:  #CC3300; 

} 

a:visited  { 

color:  #CC3399; 

} 

a:hover  { 

color:  #000066; 

} 

a:  active  { 

color:  #339900; 

} 

.stylel  {color:  #FF0000} 

— > 

</style> 

<script  language="JavaScript"  type="text/JavaScript"> 

<!- 

function  MM_goToURL()  { //v3.0 

var  i,  args=MM_goToURL. arguments;  document.MM_retumValue  =  false; 
for  (i=0;  i<(args.length-l);  i+=2)  eval(args[i]+".location="'+args[i+l]+""'); 

} 

//-> 

</script> 

</head> 

<body> 

<table  width="95%"  height="214"  border="0"  align="center"  cellpadding="3" 
cellspacing="0"> 

<tr> 

<td  height="109"><table  width="100%"  border="0"  align="left" 
cellpadding="3"  cellspacing="0"  bgcolor="#DEDEBC"> 

<tr> 
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<td  width="88%"  align="  center"  valign="middle" 

bgcolor="#DEDEBC"><img  sre="Images/nps_banner.gif'  width="447"  height="97"  /> 

</td> 

</tr> 

</table></td> 

</tr> 

<tr> 

<td  height="50"><table  width="72%"  border="0"  align="eenter" 
cellpadding="3"  eellspaeing="0"  bordereolor="#F6F6F3"> 

<tr> 

<td  width="14%"  bgeolor="#DEDEBC"><object 

classid="elsid:D27CDB6E-AE6D-llcf-96B8-444553540000" 

codebase="http://download.macromedia.eom/pub/shoekwave/eabs/flash/swflash.eab#ver 
sion=5, 0,0,0"  width="103"  height="24"> 

<param  name="movie"  value="button2.swf'  /> 

<param  name="quality"  value="high"  /> 

<param  name="bgcolor"  value="#DEDEBC"  /> 

<embed  src="button2.swf'  quality="high" 

pluginspage="http://www.maeromedia.com/shockwave/download/index.cgi?Pl_Prod_Ve 
rsion=ShockwaveFlash"  type="application/x-shockwave-flash"  width="103"  height="24" 
bgcolor="#DEDEBC"></embed> 

</object></td> 

<td  width="14%"  bgeolor="#DEDEBC"><object 

classid="elsid:D27CDB6E-AE6D-llcf-96B8-444553540000" 

codebase="http://download.macromedia.eoin/pub/shoekwave/eabs/flash/swflash.eab#ver 
sion=5,0,0,0"  name="Seareh"  width="100"  height="23"  id="Seareh"> 

<param  name="movie"  value="buttonl.swf'  /> 

<param  name="quality"  value="high"  /> 

<param  name="bgcolor"  value="#DEDEBC"  /> 

<embed  src="buttonl.swf'  width="100"  height="23"  quality="high" 
pluginspage="http://www.maeromedia.coin/shockwave/download/index.cgi?Pl_Prod_Ve 
rsion=ShockwaveFlash"  type="application/x-shockwave-flash"  bgcolor="#DEDEBC" 
name="  Seareh"></embed> 

</object></td> 

<td  width="14%"  bgeolor="#DEDEBC"><object 

classid="elsid:D27CDB6E-AE6D-llcf-96B8-444553540000" 

codebase="http://download.macromedia.eoin/pub/shoekwave/cabs/flash/swflash.eab#ver 
sion=5,0,0,0"  width="100"  height="23"> 

<param  name="movie"  value="button3.swf'  /> 

<param  name="quality"  value="high"  /> 

<param  name="bgeolor"  value="#DEDEBC"  /> 

<embed  src="button3.swf'  quality="high" 

pluginspage="http://www.maeromedia.coin/shockwave/download/index.cgi?Pl_Prod_Ve 
rsion=ShockwaveFlash"  type="application/x-shockwave-flash"  width="100"  height="23" 
bgcolor="#DEDEBC"></embed> 

</object></td> 
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<td  width="14%"  bgcolor="#DEDEBC"><object 

classid="clsid:D27CDB6E-AE6D-llcf-96B8-444553540000" 

codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#ver 
sion=5, 0,0,0"  width="100"  height="23"> 

<param  name="movie"  value="button4.swf'  /> 

<param  name="quality"  value="high"  /> 

<param  name="bgcolor"  value="#DEDEBC"  /> 

<embed  src="button4.swf'  quality="high" 

pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?Pl_Prod_Ve 
rsion=ShockwaveFlash"  type="application/x-shockwave-flash"  width="100"  height="23" 
bgcolor="#DEDEBC"></embed> 

</object></td> 

<td  width="14%"  bgcolor="#DEDEBC"><object 

classid="clsid:D27CDB6E-AE6D-llcf-96B8-444553540000" 

codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#ver 
sion=5,0,0,0"  width="103"  height="24"> 

<param  name="movie"  value="button5.swf'  /> 

<param  name="quality"  value="high"  /> 

<param  name="bgcolor"  value="#DEDEBC"  /> 

<embed  src="button5.swf'  quality="high" 

pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?Pl_Prod_Ve 
rsion=ShockwaveFlash"  type="application/x-shockwave-flash"  width="103"  height="24" 
bgcolor="#DEDEBC"></embed> 

</object></td> 

</tr> 

</table></td> 

</tr> 

<tr> 

<td><hr  />  <h3  align="center">  Delete  &quot;Teach&quot;  Record  </h3> 

<hr/> 

<p  align="center"  class="stylel">***Are  you  sure  you  want  to  Delete  this 
&quot;Teach&quot;  Record?  ***</p> 

<p  align="center"  class="stylel"> 

<input  name="Submit2"  type="  submit" 

onclick="MM_goToURL('parent','Form_Master_Teach.asp');retum 
document.MM_retumValue"  value="Cancel"  /> 

</p> 

<form  name="formr'  id="forml"  method="POST" 

action="<%=MM_editAction%>"> 

<table  width="95%"  border="l"  align="  center"  cellpadding="3" 
cellspacing="0"> 

<tr> 

<td>Professor  ID  </td> 

<td><input  name="peofessorid"  type="text"  id="peofessorid" 
value="<%=(rs_teach.Fields.Item("professorid").Value)%>"  /></td> 

</tr> 
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<tr> 

<td>Course  ID  </td> 

<td><input  name="courseid"  type="text" 
value="<%=(rs_teach.Fields.Item("courseid").Value)%>"  /></td> 

</tr> 

<tr> 

<td>Room</td> 

<td><input  name="room"  type="text" 

value="<%=(rs_teach.Fields.Item("room").Value)%>"  /></td> 

</tr> 

<tr> 

<td>&nbsp  ;</td> 

<td><input  type=" submit"  name="Submit"  value="Delete" 
</tr> 

</table> 


<input  type="hidden"  name="MM_delete"  value="forml"> 
<input  type="hidden"  name="MM_recordId" 
rs_teach.Fields.Item("teachid"). Value  %>"> 

</form>  <p  align="lefl">&nbsp;</p></td> 

</tr> 

<tr> 

<td>&nbsp;  </td> 

</tr> 

</table> 

<p>&nbsp;</p> 

<p>&nbsp;</p> 

<^ody> 

</html> 

<% 

rs_teach.Close() 

Set  rs_teach  =  Nothing 

%> 


id="courseid" 


id="room" 


/></td> 


value="<%= 
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14.  Form_Delete_Topic.asp 

<%@LANGUAGE=" VBSCRIPT"  CODEPAGE='T252"%> 

<!— #include  file="Connections/conn_DistanceLeaming.asp"  — > 

<% 

'  ***  Restrict  Access  To  Page:  Grant  or  deny  access  to  this  page 
MM_authorizedUsers="admin, professor" 

MM_authFailedURL="  login,  asp" 

MM_grantAccess=false 
If  Session("MM_Usemame")  <>  ""  Then 
If  (false  Or  CStr(Session("MM_UserAuthorization"))="")  Or  _ 

(InStr(l,MM_authorizedUsers,Session("MM_UserAuthorization"))>=l) 

Then 

MM_grantAccess  =  true 
End  If 
End  If 

If  Not  MM_grantAccess  Then 
MM_qsChar  =  "?" 

If  (InStr(l,MM_authFailedURL,"?")  >=  1)  Then  MM  qsChar  =  "&" 
MM_referrer  =  Request.  ServerVariables("URL") 

if  (Len(Request.QueryString())  >  0)  Then  MM_referrer  =  MM_referrer  &  "?"  & 
Request.QueryStringO 

MM_authFailedURL  =  MM_authFailedURL  &  MM_qsChar  &  "accessdenied=" 
&  Server.URLEncode(MM_referrer) 

Response.Redirect(MM_authFailedURL) 

End  If 

%> 

<% 

'  ***  Edit  Operations:  declare  variables 

Dim  MMeditAction 
Dim  MMabortEdit 
Dim  MMeditQuery 
Dim  MM_editCmd 

Dim  MM_editConnection 
Dim  MM_editTable 
Dim  MMeditRedirectUrl 
Dim  MMeditColumn 
Dim  MM_recordId 

Dim  MMfieldsStr 
Dim  MMcolumnsStr 
Dim  MM_fields 
Dim  MM  columns 
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Dim  MMtypeArray 
Dim  MMformVal 
Dim  MMdelim 
Dim  MMaltVal 
Dim  MM_emptyVal 
Dim  MM_i 

MM_editAction  =  CStr(Request.ServerVariables("SCRIPT_NAME")) 

If  (Request.QueryString  <>  "")  Then 

MM_edit  Action  =  MM_edit  Action  &  "?"  & 

Server.HTMLEncode(Request.QueryString) 

End  If 

'  boolean  to  abort  record  edit 
MM_abortEdit  =  false 

'  query  string  to  execute 
MM_editQuery  = "" 

%> 

<% 

'  ***  Delete  Record:  declare  variables 

if  (CStr(Request("MM_delete"))  =  "forml"  And  CStr(Request("MM_recordId")) 
<>  "")  Then 

MMeditConnection  =  MM_conn_DistanceLeaming_STRING 
MM_editTable  =  "Topic" 

MM_editColumn  =  "topicid" 

MM_recordId  =  ""  +  Request.Form("MM_recordId")  +  "" 

MMeditRedirectUrl  =  "Form_Topic_Master.asp" 

'  append  the  query  string  to  the  redirect  URL 

If  (MM  editRedirectUrl  o  ""  And  Request.QueryString  o  "")  Then 
If  (InStr(I,  MM_editRedirectUrI,  vbTextCompare)  =  0  And 

Request.QueryString  <> "")  Then 

MM_editRedirectUrI  =  MM_editRedirectUrl  &  "?"  &  Request.QueryString 
Else 

MM_editRedirectUrl  =  MM_editRedirectUrl  &  "&"  &  Request.QueryString 
End  If 
End  If 

End  If 

%> 

<% 

'  ***  Delete  Record:  construct  a  sql  delete  statement  and  execute  it 
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If  (CStr(Request("MM_delete"))  <>  ""  And  CStr(Request("MM_recordId"))  <> 
"")  Then 

'  create  the  sql  delete  statement 

MM_editQuery  =  "delete  from  "  &  MM_editTable  &  "  where  "  & 
MM_editColumn  &  "  =  "  &  MM_recordId 

If  (Not  MM_abortEdit)  Then 
'  execute  the  delete 

Set  MM_editCmd  =  Server.  CreateObject("ADODB. Command") 
MMeditCmd.ActiveConnection  =  MMeditConnection 
MMeditCmd.CommandText  =  MMeditQuery 
MM_editCmd.Execute 
MM_editCmd.ActiveConnection.Close 

If  (MM_editRedirectUrl  <>  "")  Then 
Response.Redirect(MM_editRedirectUrl) 

End  If 
End  If 

End  If 

%> 

<% 

Dim  rstopic _ MMCoIParam 

rstopic _ MMCoIParam  =  "  1" 

If  (Request.QueryStringC'topicid")  <>  "")  Then 

rstopic _ MMCoIParam  =  Request.QueryStringC'topicid") 

End  If 
%> 

<% 

Dim  rs_topic 

Dim  rs_topic_numRows 

Set  rs_topic  =  Server.CreateObject("ADODB.Recordset") 
rs_topic.ActiveConnection  =  MMconnDistanceLeamingSTRING 
rs_topic. Source  =  "SELECT  *  FROM  Topic  WHERE  topicid  =  "  + 

Replace(rs_topic _ MMCoIParam,  """)  +  "" 

rs_topic.CursorType  =  0 
rs_topic.CursorLocation  =  2 
rs_topic.LockType  =  I 
rs_topic.Open() 

rs_topic_numRows  =  0 

%> 

<!DOCTYPE  html  PUBLIC  "-//W3C//DTD  XHTML  1.0  Transitional//EN" 
"http://www.w3  .org/TR/xhtml  1/DTD/xhtml  1  -transitional.dtd"> 
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<html  xmlns="http  ://www. w3  .org/ 1 999/xhtml"> 

<head> 

<title>Distance  Learning:  Delete  Topic  Record</title> 

<meta  http-equiv="Content-Type"  content="text/html;  charset=iso-8859-l"  /> 
<link  href="DLStylesheet.css"  rel="stylesheet"  type="text/css"  /> 

<style  type="text/css"> 

<!- 
a:  link  { 

color:  #CC3300; 

} 

a:visited  { 

color:  #CC3399; 

} 

a:hover  { 

color:  #000066; 

} 

a:  active  { 

color:  #339900; 

} 

.style2  {color:  #CC0000} 

— > 

</style> 

<script  language="JavaScript"  type="text/JavaScript"> 

<!- 

function  MM_goToURL()  { //v3.0 

var  i,  args=MM_goToURL. arguments;  document.MM_retumValue  =  false; 
for  (i=0;  i<(args.length-l);  i+=2)  eval(args[i]+".location="'+args[i+l]+""'); 

} 

//-> 

</script> 

</head> 

<body> 

<table  width="95%"  height="214"  border="0"  align="center"  cellpadding="3" 
cellspacing="0"> 

<tr> 

<td  height="109"><table  width="100%"  border="0"  align="left" 
cellpadding="3"  cellspacing="0"  bgcolor="#DEDEBC"> 

<tr> 

<td  width="88%"  align="  center"  valign="middle" 

bgcolor="#DEDEBC"><img  src="Images/nps_banner.gif'  width="447"  height="97"  /> 

</td> 

</tr> 

</table></td> 

</tr> 

<tr> 
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<td  height="50"><table  width="72%"  border="0"  align="center" 
cellpadding="3"  cellspacing="0"  bordercolor="#F6F6F3"> 

<tr> 

<td  widtb="14%"  bgcolor="#DEDEBC"><object 

classid="clsid:D27CDB6E-AE6D-llcf-96B8-444553540000" 

codebase="bttp://download.macromedia.com/pub/sbockwave/cabs/flasb/swflasb.cab#ver 
sion=5, 0,0,0"  widtb="103"  beigbt="24"> 

<param  name="movie"  value="button2.swf'  /> 

<param  name="quality"  value="bigb"  /> 

<param  name="bgcolor"  value="#DEDEBC"  /> 

<embed  src="button2.swf'  quality="bigb" 

pluginspage="bttp://www.macromedia.com/sbockwave/download/index.cgi?Pl_Prod_Ve 
rsion=SbockwaveFlasb"  type="application/x-sbockwave-flasb"  widtb="103"  beigbt="24" 
bgcolor="#DEDEBC"></embed> 

</object></td> 

<td  widtb="14%"  bgcolor="#DEDEBC"><object 

classid="clsid:D27CDB6E-AE6D-llcf-96B8-444553540000" 

codebase="btq)://download.macromedia.com/pub/sbockwave/cabs/flasb/swflasb.cab#ver 
sion=5,0,0,0"  name=" Search"  widtb="100"  beigbt="23"  id="Searcb"> 

<param  name="movie"  value="buttonl.swf'  /> 

<param  name="quality"  value="bigb"  /> 

<param  name="bgcolor"  value="#DEDEBC"  /> 

<embed  src="buttonl.swf'  widtb="100"  beigbt="23"  quality="bigb" 
pluginspage="bttp://www.macromedia.com/sbockwave/download/index.cgi?Pl_Prod_Ve 
rsion=SbockwaveFlasb"  type="application/x-sbockwave-flasb"  bgcolor="#DEDEBC" 
name="  Searcb"></embed> 

</object></td> 

<td  widtb="14%"  bgcolor="#DEDEBC"><object 

classid="clsid:D27CDB6E-AE6D-llcf-96B8-444553540000" 

codebase="bttp://download.macromedia.com/pub/sbockwave/cabs/flasb/swflasb.cab#ver 
sion=5,0,0,0"  widtb="100"  beigbt="23"> 

<param  name="movie"  value="button3.swf'  /> 

<param  name="quality"  value="bigb"  /> 

<param  name="bgcolor"  value="#DEDEBC"  /> 

<embed  src="button3.swf'  quality="bigb" 

pluginspage="bttp://www.macromedia.com/sbockwave/download/index.cgi?Pl_Prod_Ve 
rsion=SbockwaveFlasb"  type="application/x-sbockwave-flasb"  widtb="100"  beigbt="23" 
bgcolor="#DEDEBC"></embed> 

</object></td> 

<td  widtb="14%"  bgcolor="#DEDEBC"><object 

classid="clsid:D27CDB6E-AE6D-llcf-96B8-444553540000" 

codebase="bttp://download.macromedia.com/pub/sbockwave/cabs/flasb/swflasb.cab#ver 
sion=5,0,0,0"  widtb="100"  beigbt="23"> 

<param  name="movie"  value="button4.swf '  /> 

<param  name="quality"  value="bigb"  /> 

<param  name="bgcolor"  value="#DEDEBC"  /> 
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<embed  src="button4.swf'  quality="high" 

pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?Pl_Prod_Ve 
rsion=ShockwaveFlash"  type="application/x-shockwave-flash"  width="100"  height="23" 
bgcolor="#DEDEBC"></embed> 

</object></td> 

<td  width="14%"  bgcolor="#DEDEBC"><object 

classid="clsid:D27CDB6E-AE6D-llcf-96B8-444553540000" 

codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#ver 
sion=5, 0,0,0"  width="103"  height="24"> 

<param  name="movie"  value="button5.swf'  /> 

<param  name="quality"  value="high"  /> 

<param  name="bgcolor"  value="#DEDEBC"  /> 

<embed  src="button5.swf'  quality="high" 

pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?Pl_Prod_Ve 
rsion=ShockwaveFlash"  type="application/x-shockwave-flash"  width="103"  height="24" 
bgcolor="#DEDEBC"></embed> 

</object></td> 

</tr> 

</table></td> 

</tr> 

<tr> 

<td><hr  />  <h3  align="center">  Delete  Topic  Record  </h3> 

<hr/> 

<p  align="center"  class="style2">***Are  you  sure  you  want  to  Delete 
the&nbsp;<strong><%=(rs_topic.Fields.Item("topicName").Value)%></strong>&nbsp;T 
opic?***</p> 

<p  align="center"  class="style2"> 

<input  name="Submit2"  type="  submit" 

onclick="MM_goToURL('parent','Form_Topic_Master.asp?subjectid=<%= 
Request.QueryStringC'subjectid")  %>');retum  document.MM_retumValue" 

value="Cancel"  /> 

</p> 

<form  name="forml"  id="forml"  method="POST" 

action="<%=MM_editAction%>"> 

<table  width="95%"  border='T"  align="  center"  cellpadding="3" 

cellspacing="0"> 

<tr> 

<td>Topic  ID  </td> 

<td><input  name="topicid"  type="text"  id="topicid" 

value="<%=(rs_topic.Fields.Item("topicid").Value)%>"  /></td> 

</tr> 

<tr> 

<td>Topic  Name  </td> 

<td><input  name="topicName"  type="text"  id="topicName" 
value="<%=(rs_topic.Fields.Item("topicName").Value)%>"  size="60"  /></td> 

</tr> 
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<tr> 

<td>Topic  Description  </td> 

<td><textarea  name="topicDescription"  cols="60" 

id="topicDescription"><%=(rs_topic.Fields.Item("topicDescription").Value)%></textare 

a></td> 

</tr> 

<tr> 

<td><input  name="subjectid"  type="hidden"  id="subjectid"  value="<%= 
Request.QueryStringC'subjectid")  %>"  /></td> 

<td><input  type=" submit"  name="Submit"  value="Delete"  /></td> 

</tr> 

</table> 

<input  type="hidden"  name="MM_delete"  value="forml"> 

<input  type="hidden"  name="MM_recordId"  value="<%= 
rs_topic.Fields.Item("topicid"). Value  %>"> 

</form>  <p  align="left">&nbsp;</p></td> 

</tr> 

<tr> 

<td>&nbsp;  </td> 

</tr> 

</table> 

<p>&nbsp;</p> 

<p>&nbsp;</p> 

</body> 

</html> 

<% 

rs_topic.Close() 

Set  rs_topic  =  Nothing 

%> 
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15.  Form_Delete_User.asp 

<%@LANGUAGE=" VBSCRIPT"  CODEPAGE='T252"%> 

<!— #include  file="Connections/conn_DistanceLeaming.asp"  — > 

<% 

'  ***  Restrict  Access  To  Page:  Grant  or  deny  access  to  this  page 
MM_authorizedUsers="  admin" 

MM_authFailedURL="  login,  asp" 

MM_grantAccess=false 
If  Session("MM_Usemame")  <>  ""  Then 
If  (false  Or  CStr(Session("MM_UserAuthorization"))="")  Or  _ 

(InStr(l,MM_authorizedUsers,Session("MM_UserAuthorization"))>=l) 

Then 

MM_grantAccess  =  true 
End  If 
End  If 

If  Not  MM_grantAccess  Then 
MM_qsChar  =  "?" 

If  (InStr(l,MM_authFailedURL,"?")  >=  1)  Then  MM  qsChar  =  "&" 
MM_referrer  =  Request.  ServerVariables("URL") 

if  (Len(Request.QueryString())  >  0)  Then  MM_referrer  =  MM_referrer  &  "?"  & 
Request.QueryStringO 

MM_authFailedURL  =  MM_authFailedURL  &  MM_qsChar  &  "accessdenied=" 
&  Server.URLEncode(MM_referrer) 

Response.Redirect(MM_authFailedURL) 

End  If 

%> 

<% 

'  ***  Edit  Operations:  declare  variables 

Dim  MMeditAction 
Dim  MMabortEdit 
Dim  MMeditQuery 
Dim  MM_editCmd 

Dim  MM_editConnection 
Dim  MM_editTable 
Dim  MMeditRedirectUrl 
Dim  MMeditColumn 
Dim  MM_recordId 

Dim  MMfieldsStr 
Dim  MMcolumnsStr 
Dim  MM_fields 
Dim  MM  columns 
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Dim  MMtypeArray 
Dim  MMformVal 
Dim  MMdelim 
Dim  MMaltVal 
Dim  MM_emptyVal 
Dim  MM_i 

MM_editAction  =  CStr(Request.ServerVariables("SCRIPT_NAME")) 

If  (Request.QueryString  <>  "")  Then 

MM_edit  Action  =  MM_edit  Action  &  "?"  & 

Server.HTMLEncode(Request.QueryString) 

End  If 

'  boolean  to  abort  record  edit 
MM_abortEdit  =  false 

'  query  string  to  execute 
MM_editQuery  = "" 

%> 

<% 

'  ***  Delete  Record:  declare  variables 

if  (CStr(Request("MM_delete"))  =  "frm_deleteUser"  And 
CStr(Request("MM_recordId"))  <>  "")  Then 

MMeditConnection  =  MM_conn_DistanceLeaming_STRING 
MM_editTable  =  "User" 

MM_editColumn  =  "userid" 

MM_recordId  =  ""  +  Request.Form("MM_recordId")  +  "" 

MMeditRedirectUrl  =  "FormMasterUser.asp" 

'  append  the  query  string  to  the  redirect  URL 

If  (MM  editRedirectUrl  o  ""  And  Request.QueryString  o  "")  Then 
If  (InStr(I,  MM_editRedirectUrI,  vbTextCompare)  =  0  And 

Request.QueryString  <> "")  Then 

MM_editRedirectUrI  =  MM_editRedirectUrl  &  "?"  &  Request.QueryString 
Else 

MM_editRedirectUrl  =  MM_editRedirectUrl  &  "&"  &  Request.QueryString 
End  If 
End  If 

End  If 

%> 

<% 

'  ***  Delete  Record:  construct  a  sql  delete  statement  and  execute  it 
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If  (CStr(Request("MM_delete"))  <>  ""  And  CStr(Request("MM_recordId"))  <> 
"")  Then 

'  create  the  sql  delete  statement 

MM_editQuery  =  "delete  from  "  &  MM_editTable  &  "  where  "  & 
MM_editColumn  &  "  =  "  &  MM_recordId 

If  (Not  MM_abortEdit)  Then 
'  execute  the  delete 

Set  MM_editCmd  =  Server.  CreateObject("ADODB. Command") 
MMeditCmd.ActiveConnection  =  MMeditConnection 
MMeditCmd.CommandText  =  MMeditQuery 
MM_editCmd.Execute 
MM_editCmd.ActiveConnection.Close 

If  (MM_editRedirectUrl  <>  "")  Then 
Response.Redirect(MM_editRedirectUrl) 

End  If 
End  If 

End  If 

%> 

<% 

Dim  rsuser _ MMColParam 

rs_user _ MMColParam  =  "  1 " 

If  (Request.QueryStringC'userid")  <>  "")  Then 

rsuser _ MMColParam  =  Request.QueryStringC'userid") 

End  If 
%> 

<% 

Dim  rs  user 

Dim  rs_user_numRows 

Set  rs  user  =  Server.CreateObject("ADODB.Recordset") 
rs_user.ActiveConnection  =  MM_conn_DistanceLeaming_STRING 
rs_user.Source  =  "SELECT  *  FROM  User  WHERE  userid  =  "  + 

Replace(rs_user _ MMColParam, """)  +  "" 

rs_user.CursorType  =  0 
rs_user.CursorLocation  =  2 
rs_user.LockType  =  1 
rs_user.Open() 

rs_user_numRows  =  0 

%> 

<!DOCTYPE  html  PUBLIC  "-//W3C//DTD  XHTML  1.0  Transitional//EN" 
"http://www.w3  .org/TR/xhtml  1/DTD/xhtml  1  -transitional.dtd"> 
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<html  xmlns="http  ://www. w3  .org/ 1 999/xhtml"> 

<head> 

<title>Distance  Learning:  Delete  LFser  Form</title> 

<meta  http-equiv="Content-Type"  eontent="text/html;  charset=iso-8859-l"  /> 
<link  href="DLStylesheet.css"  rel="stylesheet"  type="text/ess"  /> 

<style  type="text/css"> 

<!- 
a:  link  { 

color:  #CC3300; 

} 

a:visited  { 

color:  #CC3399; 

} 

a:hover  { 

color:  #000066; 

} 

a:  active  { 

color:  #339900; 

} 

. style  1  {color:  #FF0000} 

.style4  {color:  #336633;  font-weight:  bold; } 

— > 

</style> 

<script  language="JavaScript"  type="text/JavaScript"> 

<!- 

function  MM_goToURL()  { //v3.0 

var  i,  args=MM_goToURL. arguments;  document. MM  retumValue  =  false; 
for  (i=0;  i<(args.length-l);  i-l-=2)  eval(args[i]+". location- "-l-args[i+l]+""'); 

} 

//-> 

</script> 

</head> 

<body> 

<table  width="95%"  height="214"  border="0"  align="center"  cellpadding="3" 
cellspacing="0"> 

<tr> 

<td  height="109"><table  width="100%"  border="0"  align="left" 
cellpadding="3"  cellspacing="0"  bgcolor="#DEDEBC"> 

<tr> 

<td  width="88%"  align="  center"  valign="middle" 

bgcolor="#DEDEBC"><img  src="Images/nps_banner.gif'  width="447"  height="97"  /> 

</td> 

</tr> 

</table></td> 

</tr> 

<tr> 
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<td  height="50"><table  width="72%"  border="0"  align="center" 
cellpadding="3"  cellspacing="0"  bordercolor="#F6F6F3"> 

<tr> 

<td  widtb="14%"  bgcolor="#DEDEBC"><object 

classid="clsid:D27CDB6E-AE6D-llcf-96B8-444553540000" 

codebase="bttp://download.macromedia.com/pub/sbockwave/cabs/flasb/swflasb.cab#ver 
sion=5, 0,0,0"  widtb="103"  beigbt="24"> 

<param  name="movie"  value="button2.swf'  /> 

<param  name="quality"  value="bigb"  /> 

<param  name="bgcolor"  value="#DEDEBC"  /> 

<embed  src="button2.swf'  quality="bigb" 

pluginspage="bttp://www.macromedia.com/sbockwave/download/index.cgi?Pl_Prod_Ve 
rsion=SbockwaveFlasb"  type="application/x-sbockwave-flasb"  widtb="103"  beigbt="24" 
bgcolor="#DEDEBC"></embed> 

</object></td> 

<td  widtb="14%"  bgcolor="#DEDEBC"><object 

classid="clsid:D27CDB6E-AE6D-llcf-96B8-444553540000" 

codebase="btq)://download.macromedia.com/pub/sbockwave/cabs/flasb/swflasb.cab#ver 
sion=5,0,0,0"  name=" Search"  widtb="100"  beigbt="23"  id="Searcb"> 

<param  name="movie"  value="buttonl.swf'  /> 

<param  name="quality"  value="bigb"  /> 

<param  name="bgcolor"  value="#DEDEBC"  /> 

<embed  src="buttonl.swf'  widtb="100"  beigbt="23"  quality="bigb" 
pluginspage="bttp://www.macromedia.com/sbockwave/download/index.cgi?Pl_Prod_Ve 
rsion=SbockwaveFlasb"  type="application/x-sbockwave-flasb"  bgcolor="#DEDEBC" 
name="  Searcb"></embed> 

</object></td> 

<td  widtb="14%"  bgcolor="#DEDEBC"><object 

classid="clsid:D27CDB6E-AE6D-llcf-96B8-444553540000" 

codebase="bttp://download.macromedia.com/pub/sbockwave/cabs/flasb/swflasb.cab#ver 
sion=5,0,0,0"  widtb="100"  beigbt="23"> 

<param  name="movie"  value="button3.swf'  /> 

<param  name="quality"  value="bigb"  /> 

<param  name="bgcolor"  value="#DEDEBC"  /> 

<embed  src="button3.swf'  quality="bigb" 

pluginspage="bttp://www.macromedia.com/sbockwave/download/index.cgi?Pl_Prod_Ve 
rsion=SbockwaveFlasb"  type="application/x-sbockwave-flasb"  widtb="100"  beigbt="23" 
bgcolor="#DEDEBC"></embed> 

</object></td> 

<td  widtb="14%"  bgcolor="#DEDEBC"><object 

classid="clsid:D27CDB6E-AE6D-llcf-96B8-444553540000" 

codebase="bttp://download.macromedia.com/pub/sbockwave/cabs/flasb/swflasb.cab#ver 
sion=5,0,0,0"  widtb="100"  beigbt="23"> 

<param  name="movie"  value="button4.swf '  /> 

<param  name="quality"  value="bigb"  /> 

<param  name="bgcolor"  value="#DEDEBC"  /> 
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<embed  src="button4.swf'  quality="high" 

pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?Pl_Prod_Ve 
rsion=ShockwaveFlash"  type="application/x-shockwave-flash"  width="100"  height="23" 
bgcolor="#DEDEBC"></embed> 

</object></td> 

<td  width="14%"  bgcolor="#DEDEBC"><object 

classid="clsid:D27CDB6E-AE6D-llcf-96B8-444553540000" 

codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#ver 
sion=5, 0,0,0"  width="103"  height="24"> 

<param  name="movie"  value="button5.swf'  /> 

<param  name="quality"  value="high"  /> 

<param  name="bgcolor"  value="#DEDEBC"  /> 

<embed  src="button5.swf'  quality="high" 

pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?Pl_Prod_Ve 
rsion=ShockwaveFlash"  type="application/x-shockwave-flash"  width="103"  height="24" 
bgcolor="#DEDEBC"></embed> 

</object></td> 

</tr> 

</table></td> 

</tr> 

<tr> 

<td><hr  />  <h3  align="center">  Delete  User  Record  </h3> 

<hr/> 

<p  align="center"><span  class="stylel">***Are  you  sure  you  want  to  Delete 
the  User:</span><span 

class="style4"><%=(rs_user.Fields.Item("lastName").Value)%></span>,  <span 

class="style4"><%=(rs_user.Fields.Item("firstName").Value)%></span>  <span 

class="  style  1  ">Record?  *  *  *</ span></p> 

<p  align="center"> 

<input  name="Submit2" 

onclick="MM_goToURL('parent  VForm_Master_User .  asp')  ;retum 
document.MM_retumValue"  value="Cancel"  /> 

</p> 

<form  name="frm_deleteUser"  id="frm_deleteUser" 
action="<%=MM_editAction%>"> 

<table  width="95%"  border="l"  align="  center" 
cellspacing="0"> 

<tr> 

<td>First  Name  </td> 

<td><input  name="firstName"  type="text" 

value="<%=(rs_user.Fields.Item("firstName").Value)%>"  /></td> 

</tr> 

<tr> 

<td>Last  Name  </td> 

<td><input  name="lastName"  type="text" 

value="<%=(rs_user.Fields.Item("lastName").Value)%>"  /></td> 


type="  submit" 

method="POST" 

cellpadding="3" 

id="firstName" 

id="lastName" 
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</tr> 

<tr> 

<td>Office  Phone  </td> 

<td><input  name="officePhone"  type="text"  id="officePhone" 

value="<%=(rs_user.Fields.Item("officephone").Value)%>"  /></td> 

</tr> 

<tr> 

<td>Office  Room  </td> 

<td><input  name="officeRoom"  type="text"  id="officeRoom" 

value="<%=(rs_user.Fields.Item("officeRoom").Value)%>"  /></td> 

</tr> 

<tr> 

<td>Email  Address  </td> 

<td><input  name="email"  type="text"  id="email" 

value="<%=(rs_user.Fields.Item("email").Value)%>"  size="60"  /></td> 

</tr> 

<tr> 

<td>User  Name  </td> 

<td><input  name="userName"  type="text"  id="userName" 

value="<%=(rs_user.Fields.Item("userName").Value)%>"  /></td> 

</tr> 

<tr> 

<td>Password</td> 

<td><input  name="password"  type="password"  id="password" 
value="<%=(rs_user.Fields.Item("password").Value)%>"  /></td> 

</tr> 

<tr> 

<td>User  Group  </td> 

<td><input  name="userGroup"  type="text"  id="userGroup" 

value="<%=(rs_user.Fields.Item("userGroup").Value)%>"  /></td> 

</tr> 

<tr> 

<td>&nbsp;</td> 

<td><input  type="submit"  name="Submit"  value="Delete"  /></td> 

</tr> 

</table> 

<input  type="hidden"  name="MM_delete"  value="frm_deleteUser"> 
<input  type="hidden"  name="MM_recordId"  value="<%= 
rs_user.Fields.Item("userid").Value  %>"> 

</form>  <p  align="left">&nbsp;</p></td> 

</tr> 

<tr> 

<td>&nbsp;  </td> 

</tr> 

</table> 
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<p>&nbsp;</p> 

<p>&nbsp;</p> 

</body> 

</html> 

<% 

rs_user.Close() 

Set  rs_user  =  Nothing 


16.  Form_Image_Master.asp 


<%@LANGUAGE=" VBSCRIPT"  CODEPAGE='T252"%> 

<!— #include  file="Connections/conn_DistanceLeaming.asp"  — > 

<% 

'  ***  Restrict  Access  To  Page:  Grant  or  deny  access  to  this  page 
MM_authorizedUsers="admin, professor" 

MM_authFailedURL="  login,  asp" 

MM_grantAccess=false 
If  Session("MM_Usemame")  <>  ""  Then 
If  (false  Or  CStr(Session("MM_UserAuthorization"))="")  Or  _ 

(InStr(l,MM_authorizedUsers,Session("MM_UserAuthorization"))>=l) 

Then 

MM_grantAccess  =  true 
End  If 
End  If 

If  Not  MM_grantAccess  Then 
MM_qsChar  =  "?" 

If  (InStr(l,MM_authFailedURL,"?")  >=  1)  Then  MM  qsChar  =  "&" 
MM_referrer  =  Request.  ServerVariables("URL") 

if  (Len(Request.QueryString())  >  0)  Then  MM_referrer  =  MM_referrer  &  "?"  & 
Request.QueryStringO 

MM_authFailedURL  =  MM_authFailedURL  &  MM_qsChar  &  "accessdenied=" 
&  Server.URLEncode(MM_referrer) 

Response.Redirect(MM_authFailedURL) 

End  If 

%> 

<% 

Dim  rssubsectionTopic _ MMColParam 

rssubsectionTopic _ MMColParam  =  "3" 

If  (Request.QueryStringC'subsectionid")  <>  "")  Then 

rs_subsectionTopic _ MMColParam  =  Request.QueryString("subsectionid") 

End  If 
%> 

<% 

Dim  rs_subsectionTopic 
Dim  rs_subsectionTopic_nuniRows 

Set  rs  subsectionTopic  =  Server.CreateObject("ADODB.Recordset") 
rs_subsectionTopic.ActiveConnection  =  MM_conn_DistanceLeaming 
rs_subsectionTopic. Source  = 

Graphic .  graphicid,  Graphic  .graphicN  ame,  Graphic .  graphicDescription, 

Graphic.  graphicPath  FROM  Subsection_Has_Graphics,  Graphic 
Graphic. graphicid=Subsection_Has_Graphics. graphicid 
Subsection_Has_Graphics.subsectionid  =  " 


STRING 

"SELECT 

WHERE 

AND 
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Replace(rs_subsectionTopic _ MMColParam,  """)  +  "  ORDER  BY 

Graphic. graphicName  ASC" 

rs_subsectionTopic.CursorType  =  0 
rs_subsectionTopic.CursorLocation  =  2 
rs_subsectionTopic.LockType  =  1 
rs_subsectionTopic.Open() 

rs_subsectionTopic_numRows  =  0 

%> 

<% 

Dim  rssubsection _ MMColParam 

rssubsection _ MMColParam  =  "  1 " 

If  (Request.QueryStringC'subsectionid")  <>  "")  Then 

rssubsection _ MMColParam  =  Request.QueryString("subsectionid") 

End  If 
%> 

<% 

Dim  rs  subsection 

Dim  rssubsectionnumRows 

Set  rssubseetion  =  Server.CreateObjeet("ADODB.Reeordset") 
rs_subsection.AetiveConneetion  =  MM_eonn_DistanceLeaming_STRING 
rssubsection.  Source  =  "SELECT  subsectionid,  subsectionName  FROM 
Subseetion  WHERE  subseetionid  =  "  +  Replaee(rs_subsection _ MMColParam,  """) 

_j_  MM 

rs_subsection.CursorType  =  0 
rs_subsection.CursorLoeation  =  2 
rs_subsection.LockType  =  1 
rs_subsection.Open() 

rs_subsection_numRows  =  0 

%> 

<!DOCTYPE  html  PUBLIC  "-//W3C//DTD  XHTML  1.0  Transitional//EN" 
"http://www.w3  .org/TR/xhtml  1/DTD/xhtml  1  -transitional.dtd"> 

<html  xmlns="http://www.w3.org/1999/xhtml"> 

<head> 

<title>Distance  Learning:  Image  Master  Form</title> 

<meta  http-equiv="Content-Type"  eontent="text/html;  charset=iso-8859-l"  /> 
<link  href="DLStylesheet.css"  rel="stylesheet"  type="text/ess"  /> 

<style  type="text/css"> 

<!- 
a:  link  { 

color:  #CC3300; 

} 

a:visited  { 

color:  #CC3399; 
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} 

a:hover  { 

color:  #000066; 

} 

a:  active  { 

color:  #339900; 

} 

.  style  1  {color:  #339933} 

.style2  {color:  #CC0000} 

— > 

</style></head> 

<body> 

<table  width="95%"  height="214"  border="0"  align="center"  cellpadding="3" 
cellspacing="0"> 

<tr> 

<td  height="109"><table  width="100%"  border="0"  align="left" 
cellpadding="3"  cellspacing="0"  bgcolor="#DEDEBC"> 

<tr> 

<td  width="88%"  align="  center"  valign="middle" 

bgcolor="#DEDEBC"><img  sre="Images/nps_banner.gif'  width="447"  height="97"  /> 

</td> 

</tr> 

</table></td> 

</tr> 

<tr> 

<td  height="50"><table  width="72%"  border="0"  align="eenter" 
cellpadding="3"  eellspaeing="0"  bordereolor="#F6F6F3"> 

<tr> 

<td  width="14%"  bgeolor="#DEDEBC"><object 

classid="elsid:D27CDB6E-AE6D-llcf-96B8-444553540000" 

codebase="http://download.macromedia.eoin/pub/shoekwave/eabs/flash/swflash.eab#ver 
sion=5, 0,0,0"  width="103"  height="24"> 

<param  name="movie"  value="button2.swf'  /> 

<param  name="quality"  value="high"  /> 

<param  name="bgcolor"  value="#DEDEBC"  /> 

<embed  src="button2.swf'  quality="high" 

pluginspage="http://www.maeromedia.coin/shockwave/download/index.cgi?Pl_Prod_Ve 
rsion=ShockwaveFlash"  type="application/x-shockwave-flash"  width="103"  height="24" 
bgcolor="#DEDEBC"></embed> 

</object></td> 

<td  width="14%"  bgeolor="#DEDEBC"><object 

classid="elsid:D27CDB6E-AE6D-llcf-96B8-444553540000" 

codebase="http://download.macromedia.eoin/pub/shoekwave/eabs/flash/swflash.eab#ver 
sion=5,0,0,0"  name="Seareh"  width="100"  height="23"  id="Seareh"> 

<param  name="movie"  value="buttonl.swf'  /> 

<param  name="quality"  value="high"  /> 
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<param  name="bgcolor"  value="#DEDEBC"  /> 

<embed  src="buttonLswf'  width="100"  height="23"  quality="high" 
pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?Pl_Prod_Ve 
rsion=ShockwaveFlash"  type="application/x-shockwave-flash"  bgcolor="#DEDEBC" 
name="  Search"></embed> 

</object></td> 

<td  width="14%"  bgcolor="#DEDEBC"><object 

classid="clsid:D27CDB6E-AE6D-llcf-96B8-444553540000" 

codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#ver 
sion=5, 0,0,0"  width="100"  height="23"> 

<param  name="movie"  value="button3.swf'  /> 

<param  name="quality"  value="high"  /> 

<param  name="bgcolor"  value="#DEDEBC"  /> 

<embed  src="button3.swf'  quality="high" 

pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?Pl_Prod_Ve 
rsion=ShockwaveFlash"  type="application/x-shockwave-flash"  width="100"  height="23" 
bgcolor="#DEDEBC"></embed> 

</object></td> 

<td  width="14%"  bgcolor="#DEDEBC"><object 

classid="clsid:D27CDB6E-AE6D-llcf-96B8-444553540000" 

codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#ver 
sion=5,0,0,0"  width="100"  height="23"> 

<param  name="movie"  value="button4.swf'  /> 

<param  name="quality"  value="high"  /> 

<param  name="bgcolor"  value="#DEDEBC"  /> 

<embed  src="button4.swf'  quality="high" 

pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?Pl_Prod_Ve 
rsion=ShockwaveFlash"  type="application/x-shockwave-flash"  width="100"  height="23" 
bgcolor="#DEDEBC"></embed> 

</object></td> 

<td  width="14%"  bgcolor="#DEDEBC"><object 

classid="clsid:D27CDB6E-AE6D-llcf-96B8-444553540000" 

codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#ver 
sion=5,0,0,0"  width="103"  height="24"> 

<param  name="movie"  value="button5.swf'  /> 

<param  name="quality"  value="high"  /> 

<param  name="bgcolor"  value="#DEDEBC"  /> 

<embed  src="button5.swf'  quality="high" 

pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?Pl_Prod_Ve 
rsion=ShockwaveFlash"  type="application/x-shockwave-flash"  width="103"  height="24" 
bgcolor="#DEDEBC"></embed> 

</object></td> 

</tr> 

</table></td> 

</tr> 

<tr> 
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<td><hr  />  <h3  align="center">  <span  class="stylel">Image</span>  Master 

Form  for  Subsection:  <span 

class="style2"><%=(rs_subsection.Fields.Item("subsectionName").Value)%></span></h 
3> 

<hr/> 

<form  name="frm_selectlmage"  id="frm_selectlmage"  method="get" 
action="Image_Result.  asp"> 

<table  width="95%"  border="l"  align="  center"  cellpadding="3" 

cellspacing="0"> 

<tr> 

<td  width="50%">Select  an  Image  to  see  it  </td> 

<td  width="50%"><select  name="graphicid"  id="graphicid"> 

<% 

While  (NOT  rs  subsectionTopic.EOF) 

%> 

<option 

value="<%=(rs_subsectionTopic.Fields.Item("graphicid").Value)%>"><%=(rs_subsectio 

nTopic.Fields.Item("graphicName").Value)%></option> 

<% 

rs_subsectionT  opic .  MoveN  ext() 

Wend 

If  (rs_subsectionTopic.CursorType  >  0)  Then 
rs_subsectionT  opic .  MoveF  irst 

Else 

rs_subsectionTopic. Requery 

End  If 

%> 

</select> 

<input  type="submit"  name="Submit"  value=" Submit"  /></td> 

</tr> 

</table> 

</form> 

<form  name="frm_insertlmage"  id="frm_insertlmage"  method="get" 
action="Form_Insert_Image.asp"> 

<table  width="95%"  border='T"  align="  center"  cellpadding="3" 

cellspacing="0"> 

<tr> 

<td  width="50%"><strong>Insert  </strong>New  Image  </td> 

<td  width="50%"><input  name="rbt_insert"  type="submit" 
id="rbt_insert"  value=" Insert"  /> 

<input  name="subsectionid"  type="hidden"  id="subsectionid" 
value="<%=  Request.QueryStringC'subsectionid")  %>"  /></td> 

</tr> 

</table> 

</form> 
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<form  name="fm_update"  id="frn_update"  method="get" 

action="Form_Update_Image.asp"> 

<table  width="95%"  border="l"  align="  center"  eellpadding="3" 

cellspacing="0"> 

<tr> 

<td  width="50%"><strong>Update</strong>  Existing  Image  </td> 

<td  width="50%"><seleet  name="graphieid"  id="graphieid"> 

<% 

While  (NOT  rs  subseetionTopic.EOF) 

%> 

<option 

value="<%=(rs_subseetionTopic.Fields.Item("graphicid").Value)%>"><%=(rs_subseetio 

nTopie.Fields.Item("graphieName").Value)%></option> 

<% 

rs_subsectionTopie.MoveNext() 

Wend 

If  (rs_subseetionTopic.CursorType  >  0)  Then 
rs_subsectionT  opie .  MoveF  irst 
Else 

rs_subsectionTopie. Requery 
End  If 

%> 

</seleet> 

<input  type="submit"  name="Submit2"  value="Update"  /> 

<input  name="subseetionid"  type="hidden"  id="subseetionid" 
value="<%=  Request.QueryStringC'subseetionid")  %>"  /></td> 

</tr> 

</table> 

</form> 

<form  name="form2"  id="form2"  method="get" 

action="Form_Delete_Image.asp"> 

<table  width="95%"  border='T"  align="eenter"  eellpadding="3" 
cellspacing="0"> 

<tr> 

<td  width="50%"><strong>Delete</strong>  Existing  Image  </td> 

<td  width="50%"><seleet  name="graphieid"  id="graphieid"> 

<% 

While  (NOT  rs  subseetionTopic.EOF) 

%> 

<option 

value="<%=(rs_subsectionTopic.Fields.Item("graphicid").Value)%>"><%=(rs_subsectio 

nTopic.Fields.Item("graphicName").Value)%></option> 

<% 

rs_subsectionT  opic .  MoveN  ext() 

Wend 
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If  (rs_subsectionTopic.CursorType  >  0)  Then 
rs_subsectionT  opic .  MoveF  irst 
Else 

rs_subsectionTopic. Requery 
End  If 

%> 

</select> 

<input  type=" submit"  name="  Submits "  value="Delete"  /> 

<input  name="subsectionid"  type="hidden"  id="subsectionid" 
value="<%=  Request.QueryStringC'subsectionid")  %>"  /></td> 

</tr> 

</table> 

</form>  <p>&nbsp;</p>  <p  align="left">&nbsp;</p></td> 

</tr> 

<tr> 

<td>&nbsp;  </td> 

</tr> 

</table> 

<p>&nbsp;</p> 

<p>&nbsp;</p> 

<^ody> 

</html> 

<% 

rs_subsectionTopic.Close() 

Set  rs_subsectionTopic  =  Nothing 

%> 

<% 

rs_subsection.Close() 

Set  rs_subsection  =  Nothing 

%> 
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17.  Form_Input_Subsection.asp 


<%@LANGUAGE=" VBSCRIPT"  CODEPAGE='T252"%> 

<% 

'  ***  Restrict  Access  To  Page:  Grant  or  deny  access  to  this  page 
MM_authorizedUsers="admin, professor" 

MM_authFailedURL="login.asp" 

MM_grantAccess=false 
If  Session("MM_Usemame")  <>  ""  Then 
If  (false  Or  CStr(Session("MM_UserAuthorization"))="")  Or  _ 

(InStr(  1  ,MM_authorizedUsers,Session("MM_UserAuthorization"))>=  1 ) 

Then 

MM_grantAccess  =  true 
End  If 
End  If 

If  Not  MM_grantAccess  Then 
MM_qsChar  =  "?" 

If  (InStr(l,MM_authFailedURL,"?")  >=  1)  Then  MM_qsChar  =  "&" 
MM_referrer  =  Request.  ServerVariables("URL") 

if  (Len(Request. Query StringO)  >  0)  Then  MM_referrer  =  MM_referrer  &  "?"  & 
Request.QueryStringO 

MM_authFailedURL  =  MM_authFailedURL  &  MM_qsChar  &  "accessdenied=" 
&  Server.URLEncode(MM_referrer) 

Response.Redirect(MM_authFailedURL) 

End  If 

%> 

<!— #include  file="Connections/conn_DistanceLeaming.asp"  — > 

<% 

'  ***  Edit  Operations:  declare  variables 

Dim  MMeditAction 
Dim  MMabortEdit 
Dim  MMeditQuery 
Dim  MM_editCmd 

Dim  MM_editConnection 
Dim  MM_editTable 
Dim  MMeditRedirectUrl 
Dim  MMeditColumn 
Dim  MM_recordId 

Dim  MMfieldsStr 
Dim  MMcolumnsStr 
Dim  MM_fields 
Dim  MM  columns 
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Dim  MMtypeArray 
Dim  MMformVal 
Dim  MMdelim 
Dim  MMaltVal 
Dim  MM_emptyVal 
Dim  MM_i 

MM_editAction  =  CStr(Request.ServerVariables("SCRIPT_NAME")) 

If  (Request.QueryString  <>  "")  Then 

MM_edit  Action  =  MM_edit  Action  &  "?"  & 

Server.HTMLEncode(Request.QueryString) 

End  If 

'  boolean  to  abort  record  edit 
MM_abortEdit  =  false 

'  query  string  to  execute 
MM_editQuery  = "" 

%> 

<% 

'  ***  Insert  Record:  set  variables 

If  (CStr(Request("MM_insert"))  =  "formi")  Then 

MMeditConnection  =  MM_conn_DistanceLeaming_STRING 
MM_editTabIe  =  "Subsection" 

MM_editRedirectUrl  =  "TestI_Confirm.asp" 

MM_fieIdsStr 

"categoryid|value|header|value|description|value|content|value|keywords|value|author|valu 

e" 

MM_columnsStr  = 

"categoryid|none, none, NULL|subsectionName|', none, "|subsectionDescription|', none, "Icon 
tent|',none,"|keywords|',none,"|author|',none,"" 

'  create  the  MM_fields  and  MM_columns  arrays 
MM_fieIds  =  SpIit(MM_fieIdsStr,  "I") 

MM_columns  =  Split(MM_columnsStr,  "|") 

'  set  the  form  values 

For  MM_i  =  LBound(MM_fields)  To  UBound(MM_fields)  Step  2 
MM_fields(MM_i+l)  =  CStr(Request.Form(MM_fields(MM_i))) 

Next 

'  append  the  query  string  to  the  redirect  URL 

If  (MM_editRedirectUrl  o  ""  And  Request.QueryString  o  "")  Then 
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If  (InStr(l,  MM_editRedirectUrl,  vbTextCompare)  =  0  And 

Request.QueryString  <> "")  Then 

MM_editRedirectUrl  =  MM_editRedirectUrl  &  "?"  &  Request.QueryString 
Else 

MM_editRedirectUrl  =  MM_editRedirectUrl  &  "&"  &  Request.QueryString 
End  If 
End  If 

End  If 

%> 

<% 

'  ***  Insert  Record:  construct  a  sql  insert  statement  and  execute  it 

Dim  MMtable  Values 
Dim  MM_db  Values 

If  (CStr(Request("MM_insert"))  <>  "")  Then 

'  create  the  sql  insert  statement 
MMjable  Values  = "" 

MM_db  Values  = 

For  MM_i  =  LBound(MM_fields)  To  UBound(MM_fields)  Step  2 
MM_formVal  =  MM_fields(MM_i+l) 

MM_typeArray  =  Split(MM_columns(MM_i+l),",'') 

MM_delim  =  MM_typeArray(0) 

If  (MM_deIim  =  "none")  Then  MM_delim  =  "" 

MM_altVal  =  MM_typeArray(l) 

If  (MM_aItVaI  =  "none")  Then  MM_aItVaI  =  "" 

MM_emptyVal  =  MM_typeArray(2) 

If  (MM_emptyVaI  =  "none")  Then  MM_emptyVal  =  "" 

If  (MM  formVal  =  "")  Then 
MM_formVaI  =  MM_emptyVaI 
Else 

If  (MM_altVal  <>  "")  Then 
MM_formVal  =  MM_altVal 
Elself  (MM_delim  =  ""')  Then  '  escape  quotes 
MM_formVal  =  "'"  &  Replace(MM_formVal, ""',""")  &  ""' 

Else 

MM_formVal  =  MM_delim  +  MM_formVal  +  MM_delim 
End  If 
End  If 

If  (MM_i  <>  LBound(MM_fieIds))  Then 
MM_table Values  =  MM_table Values  & 

MM_db Values  =  MM_dbValues  &  "," 

End  If 

MM_tabIeValues  =  MM_table Values  &  MM_coIumns(MM_i) 
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MM_db Values  =  MM_db Values  &  MM_formVal 
Next 

MM_editQuery  =  "insert  into  "  &  MM_editTable  &  "  ("  &  MM_table Values  & 
")  values  ("  &  MM_db Values  &  ")" 

If  (Not  MM_abortEdit)  Then 
'  execute  the  insert 

Set  MM_editCmd  =  Server.  CreateObject("ADODB. Command") 
MMeditCmd.ActiveConnection  =  MMeditConnection 
MMeditCmd.CommandText  =  MMeditQuery 
MM_editCmd.Execute 
MM_editCmd.ActiveConnection.Close 

If  (MM_editRedirectUrl  <>  "")  Then 
Response.Redirect(MM_editRedirectUrl) 

End  If 
End  If 

End  If 

%> 

<% 

Dim  rscategory 

Dim  rs_category_numRows 

Set  rs  category  =  Server. CreateObject("ADODB. Recordset") 
rs_category.ActiveConnection  =  MM_conn_DistanceLeaming_STRING 
rs_category. Source  =  "SELECT  *  FROM  Category  ORDER  BY  categoryName 

ASC" 

rs_category.CursorType  =  0 
rs_category.CursorLocation  =  2 
rs_category.LockType  =  1 
rs_category.Open() 

rs_category_numRows  =  0 

%> 

<% 

Dim  rs_topic _ MMCoIParam 

rs_topic _ MMCoIParam  =  "I" 

If  (Request.QueryStringC'topicid")  <>  "")  Then 

rstopic _ MMCoIParam  =  Request.QueryStringC'topicid") 

End  If 
%> 

<% 

Dim  rs_topic 

Dim  rs_topic_numRows 
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Set  rs_topic  =  Server.CreateObject("ADODB.Recordset") 

rstopic.ActiveConnection  =  MMconnDistanceLeamingSTRING 

rs  topic. Source  =  "SELECT  *  FROM  Topic  WHERE  topicid  =  "  + 

Replace(rs_topic _ MMColParam,  """)  +  "" 

rstopic.CursorType  =  0 
rs_topic.CursorLocation  =  2 
rs_topic.LockType  =  1 
rs_topic.Open() 

rs_topic_numRows  =  0 

%> 

<!DOCTYPE  html  PUBLIC  "-//W3C//DTD  XHTML  1.0  Transitional//EN" 
"http://www.w3  .org/TR/xhtml  1/DTD/xhtml  1  -transitional.dtd"> 

<html  xmlns="http://www.w3.org/1999/xhtml"> 

<head> 

<title>Distance  Learning:  Insert  Subsection  Input  Form</title> 

<meta  http-equiv="Content-Type"  content="text/html;  charset=iso-8859-l"  /> 
<link  href="DLStylesheet.css"  rel="stylesheet"  type="text/css"  /> 

<style  type="text/css"> 

<!- 
a:  link  { 

color:  #CC3300; 

} 

a:visited  { 

color:  #CC3399; 

} 

a:hover  { 

color:  #000066; 

} 

a:  active  { 

color:  #339900; 

} 

. style  1  {color:  #CC3300} 

.style2  {color:  #3300CC} 

— > 

</style> 

</head> 

<body> 

<table  width="95%"  height="214"  border="0"  align="center"  cellpadding="3" 
cellspacing="0"> 

<tr> 

<td  height="109"><table  width="100%"  border="0"  align="left" 
cellpadding="3"  cellspacing="0"  bgcolor="#DEDEBC"> 

<tr> 
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<td  width="88%"  align="  center"  valign="middle" 

bgcolor="#DEDEBC"><img  sre="Images/nps_banner.gif'  width="447"  height="97"  /> 

</td> 

</tr> 

</table></td> 

</tr> 

<tr> 

<td  height="50"><table  width="72%"  border="0"  align="eenter" 
cellpadding="3"  eellspaeing="0"  bordereolor="#F6F6F3"> 

<tr> 

<td  width="14%"  bgeolor="#DEDEBC"><object 

classid="elsid:D27CDB6E-AE6D-llcf-96B8-444553540000" 

codebase="http://download.macromedia.eom/pub/shoekwave/cabs/flash/swflash.eab#ver 
sion=5, 0,0,0"  width="103"  height="24"> 

<param  name="movie"  value="button2.swf'  /> 

<param  name="quality"  value="high"  /> 

<param  name="bgcolor"  value="#DEDEBC"  /> 

<embed  src="button2.swf'  quality="high" 

pluginspage="http://www.maeromedia.com/shockwave/download/index.cgi?Pl_Prod_Ve 
rsion=ShockwaveFlash"  type="application/x-shockwave-flash"  width="103"  height="24" 
bgcolor="#DEDEBC"></embed> 

</object></td> 

<td  width="14%"  bgeolor="#DEDEBC"><object 

classid="elsid:D27CDB6E-AE6D-llcf-96B8-444553540000" 

codebase="http://download.macromedia.eoin/pub/shoekwave/eabs/flash/swflash.eab#ver 
sion=5,0,0,0"  name="Seareh"  width="100"  height="23"  id="Seareh"> 

<param  name="movie"  value="buttonl.swf'  /> 

<param  name="quality"  value="high"  /> 

<param  name="bgcolor"  value="#DEDEBC"  /> 

<embed  src="buttonl.swf'  width="100"  height="23"  quality="high" 
pluginspage="http://www.maeromedia.coin/shockwave/download/index.cgi?Pl_Prod_Ve 
rsion=ShockwaveFlash"  type="application/x-shockwave-flash"  bgcolor="#DEDEBC" 
name="  Seareh"></embed> 

</object></td> 

<td  width="14%"  bgeolor="#DEDEBC"><object 

classid="elsid:D27CDB6E-AE6D-llcf-96B8-444553540000" 

codebase="http://download.macromedia.eoin/pub/shoekwave/eabs/flash/swflash.eab#ver 
sion=5,0,0,0"  width="100"  height="23"> 

<param  name="movie"  value="button3.swf'  /> 

<param  name="quality"  value="high"  /> 

<param  name="bgcolor"  value="#DEDEBC"  /> 

<embed  src="button3.swf'  quality="high" 

pluginspage="http://www.maeromedia.coin/shockwave/download/index.cgi?Pl_Prod_Ve 
rsion=ShockwaveFlash"  type="application/x-shockwave-flash"  width="100"  height="23" 
bgcolor="#DEDEBC"></embed> 

</object></td> 
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<td  width="14%"  bgcolor="#DEDEBC"><object 

classid="clsid:D27CDB6E-AE6D-llcf-96B8-444553540000" 

codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#ver 
sion=5, 0,0,0"  width="100"  height="23"> 

<param  name="movie"  value="button4.swf'  /> 

<param  name="quality"  value="high"  /> 

<param  name="bgcolor"  value="#DEDEBC"  /> 

<embed  src="button4.swf'  quality="high" 

pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?Pl_Prod_Ve 
rsion=ShockwaveFlash"  type="application/x-shockwave-flash"  width="100"  height="23" 
bgcolor="#DEDEBC"></embed> 

</object></td> 

<td  width="14%"  bgcolor="#DEDEBC"><object 

classid="clsid:D27CDB6E-AE6D-llcf-96B8-444553540000" 

codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#ver 
sion=5,0,0,0"  width="103"  height="24"> 

<param  name="movie"  value="button5.swf'  /> 

<param  name="quality"  value="high"  /> 

<param  name="bgcolor"  value="#DEDEBC"  /> 

<embed  src="button5.swf'  quality="high" 

pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?Pl_Prod_Ve 
rsion=ShockwaveFlash"  type="application/x-shockwave-flash"  width="103"  height="24" 
bgcolor="#DEDEBC"></embed> 

</object></td> 

</tr> 

</table></td> 

</tr> 

<tr> 

<td><hr  />  <h3  align="center">  Insert  Subsection&nbsp;into:&nbsp;  <span 

class="stylel"><%=(rs_topic.Fields.Item("topicName").Value)%>&nbsp;<span 
class="  style2">Topic</span></span></h3> 

<hr  />  <form  ACTION="<%=MM_editAction%>"  METHOD="POST" 
name="forml"  id="forml"> 

<table  width="95%"  border="l"  align="  center"  cellpadding="3" 
cellspacing="0"> 

<tr> 

<td>category</td> 

<td><select  name="categoryid"  id="categoryid"> 

<% 

While  (NOT  rs  category.EOF) 

%> 

<option 

value="<%=(rs_category.Fields.Item("categoryid").Value)%>"><%=(rs_category.Fields. 
Item( "  categoryName") .  Value)%></option> 

<% 

rs_category.MoveNext() 
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Wend 

If  (rs_category.CursorType  >  0)  Then 
rs_category  .MoveFirst 
Else 

rs_category.Requery 
End  If 

%> 

</select></td> 

</tr> 

<tr> 

<td>Subsection  Header  </td> 

<td><input  name="header"  type="text"  id="header"  size="60"  /></td> 

</tr> 

<tr> 

<td>Subsection  Description  </td> 

<td><textarea  nanie="description"  cols="60"  rows="5" 

id="description"></textarea></td> 

</tr> 

<tr> 

<td>Subsection  Content  </td> 

<td><textarea  name=" content"  cols="60"  rows="15"  wrap="VIRTUAL" 
id="content"></textarea></td> 

</tr> 

<tr> 

<td>Subsection  Keywords  </td> 

<td><textarea  name="keywords"  cols="60"  rows="5" 

id="keywords"></textarea></td> 

</tr> 

<tr> 

<td><input  name="author"  type="hidden"  id="author"  value="<%= 
Session("MM_Usemame")  %>"  /> 

<input  name="topicid"  type="hidden"  id="topicid"  value="<%= 
Request.QueryStringC'topicid")  %>"  /></td> 

<td><input  name="Submit"  type="submit"  value=" Submit"  /></td> 

</tr> 

</table> 

<input  type="hidden"  name="MM_insert"  value="formr'> 

</form>  <p  align="left">&nbsp;</p></td> 

</tr> 

<tr> 

<td>&nbsp;  </td> 

</tr> 

</table> 

<p>&nbsp;</p> 

<p>&nbsp;</p> 


183 


</body> 

</html> 

<% 

rs_category.Close() 

Set  rs_category  =  Nothing 

%> 

<% 

rs_topic.Close() 

Set  rs_topic  =  Nothing 

%> 
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18.  Form_Insert_Category.asp 

<%@LANGUAGE=" VBSCRIPT"  CODEPAGE='T252"%> 

<!— #include  file="Connections/conn_DistanceLeaming.asp"  — > 

<% 

'  ***  Restrict  Access  To  Page:  Grant  or  deny  access  to  this  page 
MM_authorizedUsers="  admin" 

MM_authFailedURL="  login,  asp" 

MM_grantAccess=false 
If  Session("MM_Usemame")  <>  ""  Then 
If  (false  Or  CStr(Session("MM_UserAuthorization"))="")  Or  _ 

(InStr(l,MM_authorizedUsers,Session("MM_UserAuthorization"))>=l) 

Then 

MM_grantAccess  =  true 
End  If 
End  If 

If  Not  MM_grantAccess  Then 
MM_qsChar  =  "?" 

If  (InStr(l,MM_authFailedURL,"?")  >=  1)  Then  MM  qsChar  =  "&" 
MM_referrer  =  Request.  ServerVariables("URL") 

if  (Len(Request.QueryString())  >  0)  Then  MM_referrer  =  MM_referrer  &  "?"  & 
Request.QueryStringO 

MM_authFailedURL  =  MM_authFailedURL  &  MM_qsChar  &  "accessdenied=" 
&  Server.URLEncode(MM_referrer) 

Response.Redirect(MM_authFailedURL) 

End  If 

%> 

<% 

'  ***  Edit  Operations:  declare  variables 

Dim  MMeditAction 
Dim  MMabortEdit 
Dim  MMeditQuery 
Dim  MM_editCmd 

Dim  MM_editConnection 
Dim  MM_editTable 
Dim  MMeditRedirectUrl 
Dim  MMeditColumn 
Dim  MM_recordId 

Dim  MMfieldsStr 
Dim  MMcolumnsStr 
Dim  MM_fields 
Dim  MM  columns 
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Dim  MMtypeArray 
Dim  MMformVal 
Dim  MMdelim 
Dim  MMaltVal 
Dim  MM_emptyVal 
Dim  MM_i 

MM_editAction  =  CStr(Request.ServerVariables("SCRIPT_NAME")) 

If  (Request.QueryString  <>  "")  Then 

MM_edit  Action  =  MM_edit  Action  &  "?"  & 

Server.HTMLEncode(Request.QueryString) 

End  If 

'  boolean  to  abort  record  edit 
MM_abortEdit  =  false 

'  query  string  to  execute 
MM_editQuery  = "" 

%> 

<% 

'  ***  Insert  Record:  set  variables 

If  (CStr(Request("MM_insert"))  =  "formi")  Then 

MMeditConnection  =  MM_conn_DistanceLeaming_STRING 
MM_editTabIe  =  "Category" 

MM_editRedirectUrl  =  "Form_Master_Category.asp" 

MM_fieIdsStr  =  "categoryName|value|categoryDescription|value" 
MM_columnsStr  =  "categoryName|', none, "|categoryDescription|', none,"" 

'  create  the  MM_fields  and  MM_columns  arrays 
MM_fieIds  =  SpIit(MM_fieIdsStr,  "I") 

MM_columns  =  Split(MM_columnsStr,  "|") 

'  set  the  form  values 

For  MM_i  =  LBound(MM_fields)  To  UBound(MM_fields)  Step  2 
MM_fields(MM_i+l)  =  CStr(Request.Form(MM_fields(MM_i))) 

Next 

'  append  the  query  string  to  the  redirect  URL 

If  (MMeditRedirectUrl  o  ""  And  Request.QueryString  o  "")  Then 
If  (InStr(I,  MM_editRedirectUrI,  "?",  vbTextCompare)  =  0  And 

Request.QueryString  <> "")  Then 

MM_editRedirectUrI  =  MM_editRedirectUrl  &  "?"  &  Request.QueryString 
Else 

MM_editRedirectUrl  =  MM_editRedirectUrl  &  "&"  &  Request.QueryString 
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End  If 
End  If 

End  If 

%> 

<% 

'  ***  Insert  Record:  construct  a  sql  insert  statement  and  execute  it 

Dim  MMtable  Values 
Dim  MMdbValues 

If  (CStr(Request("MM_insert"))  <>  "")  Then 

'  create  the  sql  insert  statement 
MMjableValues  = 

MM_db  Values  = "" 

For  MM_i  =  LBound(MM_fields)  To  UBound(MM_fields)  Step  2 
MM_formVal  =  MM_fields(MM_i+l) 

MM_typeArray  =  Split(MM_columns(MM_i+l),",'') 

MM_delim  =  MM_typeArray(0) 

If  (MM_deIim  =  "none")  Then  MM_delim  =  "" 

MM_altVal  =  MM_typeArray(l) 

If  (MM_altVal  =  "none")  Then  MM_altVal  =  "" 

MM_emptyVal  =  MM_typeArray(2) 

If  (MM_emptyVal  =  "none")  Then  MM_emptyVal  =  "" 

If  (MM_formVal  =  "")  Then 
MM_formVal  =  MM_emptyVal 
Else 

If  (MM_altVal  <>  "")  Then 
MM_formVal  =  MM_aItVaI 
Elself  (MM_delim  =  ""')  Then  '  escape  quotes 
MM_formVaI  =  "'"  &  RepIace(MM_formVaI, ""',""")  &  ""' 

Else 

MM_formVal  =  MM_delim  +  MM_formVal  +  MM_delim 
End  If 
End  If 

If  (MM_i  <>  LBound(MM_fields))  Then 
MM_tableVaIues  =  MM_table Values  & 

MM_db Values  =  MM_dbValues  &  "," 

End  If 

MM_table Values  =  MM_tableValues  &  MM_columns(MM_i) 

MM_db Values  =  MM_db Values  &  MM_formVal 
Next 

MM_editQuery  =  "insert  into  "  &  MM_editTable  &  "  ("  &  MM_table Values  & 
")  values  ("  &  MM_db Values  &  ")" 
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If  (Not  MM_abortEdit)  Then 
'  execute  the  insert 

Set  MM_editCmd  =  Server.CreateObject("ADODB. Command") 
MMeditCmd.ActiveConnection  =  MMeditConnection 
MMeditCmd.CommandText  =  MMeditQuery 
MM_editCmd.  Execute 
MMeditCmd.ActiveConnection.Close 

If  (MM_editRedirectUrl  <>  "")  Then 
Response.Redirect(MM_editRedirectUrl) 

End  If 
End  If 

End  If 

%> 

<!DOCTYPE  html  PUBLIC  "-//W3C//DTD  XHTML  1.0  Transitional//EN" 
"http://www.w3  .org/TR/xhtml  1/DTD/xhtml  1  -transitional.dtd"> 

<html  xmlns="http://www.w3.org/1999/xhtml"> 

<head> 

<title>Distance  Learning:  Insert  Category  Form</title> 

<meta  http-equiv="Content-Type"  content="text/html;  charset=iso-8859-l"  /> 
<link  href="DLStylesheet.css"  rel="stylesheet"  type="text/css"  /> 

<style  type="text/css"> 

<!- 
a:  link  { 

color:  #CC3300; 

} 

a:visited  { 

color:  #CC3399; 

} 

a:hover  { 

color:  #000066; 

} 

a:  active  { 

color:  #339900; 

} 

— > 

</style> 

<script  language="JavaScript"  type="text/JavaScript"> 

<!- 

function  MM_fmdObj(n,  d)  { //v4.01 

var  p,i,x;  if(!d)  d=document;  if((p=n.indexOf("?"))>0&&parent.frames. length) 

{ 

d=parent.frames[n.substring(p+ 1 )]  .document;  n=n.substring(0,p); } 
if(!(x=d[n])&&d.all)  x=d.all[n];  for  (i=0;!x&&i<d.forms.length;i++) 
x=d.  forms  [i][n]; 
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for(i=0;!x&&d.layers&&i<d.layers.length;i++) 
x=MM_findObj  (n,d-  lay  ers  [i]  .document) ; 

if(!x  &&  d.getElementByld)  x=d.getElementById(n);  return  x; 

} 

function  MM_validateForm()  { //v4.0 

var  i,p,q,nm, test, num, min, max, errors=",args=MM_validateForm.arguments; 
for  (i=0;  i<(args. length-2);  i+=3)  { test=args[i-i-2];  val=MM_findObj(args[i]); 
if  (val)  {  nm=val.name;  if  ((val=val.value)!="")  { 
if  (test.indexOf('isEmail')!=-l)  { p=val.indexOf('@'); 
if  (p<l  II  p==(val.length-l))  errors+='-  '-l-nm-l-'  must  contain  an  e-mail 

address.\n'; 

}  else  if  (test!='R')  {  num  =  parseFloat(val); 
if  (isNaN(val))  errors-i-='-  '+nm+'  must  contain  a  number.\n'; 
if  (test.indexOf('inRange')  !=  -1)  {  p=test.indexOf(':'); 
min=test.substring(8,p);  max=test.substring(p+l); 

if  (num<min  ||  max<num)  errors+='-  '-l-nm-l-'  must  contain  a  number 
between  '-tmin-i-'  and  '-i-max-i-'.\n'; 

}  }  }  else  if  (test.charAt(O)  ==  'R')  errors  -l-=  '-  '-l-nm-l-'  is  required.\n';  } 

}  if  (errors)  alert('The  following  error(s)  occurred:\n'-i-errors); 
document. MM_retumValue  =  (errors  ==  "); 

} 

//-> 

</script> 

</head> 

<body> 

<table  width="95%"  height="214"  border="0"  align="center"  cellpadding="3" 
cellspacing="0"> 

<tr> 

<td  height="109"><table  width="100%"  border="0"  align="left" 
cellpadding="3"  cellspacing="0"  bgcolor="#DEDEBC"> 

<tr> 

<td  width="88%"  align="  center"  valign="middle" 

bgcolor="#DEDEBC"><img  src="Images/nps_banner.gif'  width="447"  height="97"  /> 

</td> 

</tr> 

</table></td> 

</tr> 

<tr> 

<td  height="50"><table  width="72%"  border="0"  align="center" 
cellpadding="3"  cellspacing="0"  bordercolor="#F6F6F3"> 

<tr> 

<td  width="14%"  bgcolor="#DEDEBC"><object 

classid="clsid:D27CDB6E-AE6D-llcf-96B8-444553540000" 

codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#ver 
sion=5,0,0,0"  width="103"  height="24"> 
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<param  name="movie"  value="button2.swf'  /> 

<param  name="quality"  value="high"  /> 

<param  name="bgcolor"  value="#DEDEBC"  /> 

<embed  src="button2.swf'  quality="high" 

pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?Pl_Prod_Ve 
rsion=ShockwaveFlash"  type="application/x-shockwave-flash"  width="103"  height="24" 
bgcolor="#DEDEBC"></embed> 

</object></td> 

<td  width="14%"  bgcolor="#DEDEBC"><object 

classid="clsid:D27CDB6E-AE6D-llcf-96B8-444553540000" 

codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#ver 
sion=5, 0,0,0"  name=" Search"  width="100"  height="23"  id="Search"> 

<param  name="movie"  value="buttonEswf'  /> 

<param  name="quality"  value="high"  /> 

<param  name="bgcolor"  value="#DEDEBC"  /> 

<embed  src="buttonLswf'  width="100"  height="23"  quality="high" 
pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?Pl_Prod_Ve 
rsion=ShockwaveFlash"  type="application/x-shockwave-flash"  bgcolor="#DEDEBC" 
name="  Search"></embed> 

</object></td> 

<td  width="14%"  bgcolor="#DEDEBC"><object 

classid="clsid:D27CDB6E-AE6D-llcf-96B8-444553540000" 

codebase="http://download.macromedia.coin/pub/shockwave/cabs/flash/swflash.cab#ver 
sion=5,0,0,0"  width="100"  height="23"> 

<param  name="movie"  value="button3.swf'  /> 

<param  name="quality"  value="high"  /> 

<param  name="bgcolor"  value="#DEDEBC"  /> 

<embed  src="button3.swf'  quality="high" 

pluginspage="http://www.macromedia.coin/shockwave/download/index.cgi?Pl_Prod_Ve 
rsion=ShockwaveFlash"  type="application/x-shockwave-flash"  width="100"  height="23" 
bgcolor="#DEDEBC"></embed> 

</object></td> 

<td  width="14%"  bgcolor="#DEDEBC"><object 

classid="clsid:D27CDB6E-AE6D-llcf-96B8-444553540000" 

codebase="http://download.macromedia.coiii/pub/shockwave/cabs/flash/swflash.cab#ver 
sion=5,0,0,0"  width="100"  height="23"> 

<param  name="movie"  value="button4.swf'  /> 

<param  name="quality"  value="high"  /> 

<param  name="bgcolor"  value="#DEDEBC"  /> 

<embed  src="button4.swf'  quality="high" 

pluginspage="http://www.macromedia.coin/shockwave/download/index.cgi?Pl_Prod_Ve 
rsion=ShockwaveFlash"  type="application/x-shockwave-flash"  width="100"  height="23" 
bgcolor="#DEDEBC"></embed> 

</object></td> 

<td  width="14%"  bgcolor="#DEDEBC"><object 

classid="clsid:D27CDB6E-AE6D-llcf-96B8-444553540000" 
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codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#ver 
sion=5, 0,0,0"  width="103"  height="24"> 

<param  name="movie"  value="button5.swf'  /> 

<param  name="quality"  value="high"  /> 

<param  name="bgcolor"  value="#DEDEBC"  /> 

<embed  src="button5.swf'  quality="high" 

pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?Pl_Prod_Ve 
rsion=ShockwaveFlash"  type="application/x-shockwave-flash"  width="103"  height="24" 
bgcolor="#DEDEBC"></embed> 

</object></td> 

</tr> 

</table></td> 

</tr> 

<tr> 

<td><hr  />  <h3  align="center">  Insert  New  Category  Record  </h3> 

<hr/> 

<form  name="formr'  id="forml"  method="POST" 

action="<%=MM_editAction%>"> 

<table  width="95%"  border="l"  align="  center"  cellpadding="3" 
cellspacing="0"> 

<tr> 

<td  width="32%">Category  Name  </td> 

<td  width="68%"><input  name="categoryName"  type="text" 
id="categoryName"  size="60"  /></td> 

</tr> 

<tr> 

<td>Category  Description  </td> 

<td><textarea  name="categoryDescription"  cols="60"  rows="5" 
id="categoryDescription"></textarea></td> 

</tr> 

<tr> 

<td>&nbsp;</td> 

<td><input  name="Submit"  type="submit" 

onclick="MM_validateForm('categoryName',",'R','categoryDescription',",'R');retum 
document.MM  retumValue"  value=" Submit"  /></td> 

</tr> 

</table> 


<input  type="hidden"  name="MM_insert"  value="forml"> 
</form>  <p  align="left">&nbsp;</p></td> 

</tr> 

<tr> 

<td>&nbsp;  </td> 

</tr> 

</table> 

<p>&nbsp;</p> 
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<p>&nbsp;</p> 

</body> 

</html> 


19.  Form_Insert_Image.asp 

<%@LANGUAGE=" VBSCRIPT"  CODEPAGE='T252"%> 

<!— #include  fde="Connections/conn_DistanceLeaming.asp"  — > 

<% 

'  ***  Restrict  Access  To  Page:  Grant  or  deny  access  to  this  page 
MM_authorizedUsers="admin, professor" 

MM_authFailedURL="  login,  asp" 

MM_grantAccess=false 
If  Session("MM_Usemame")  <>  ""  Then 
If  (false  Or  CStr(Session("MM_UserAuthorization"))="")  Or  _ 

(InStr(l,MM_authorizedUsers,Session("MM_UserAuthorization"))>=l) 

Then 

MM_grantAccess  =  true 
End  If 
End  If 

If  Not  MM_grantAccess  Then 
MM_qsChar  =  "?" 

If  (InStr(l,MM_authFailedURL,"?")  >=  1)  Then  MM_qsChar  =  "&" 
MM_referrer  =  Request.  ServerVariables("URL") 

if  (Len(Request. Query StringO)  >  0)  Then  MM_referrer  =  MM_referrer  &  "?"  & 
Request.QueryStringO 

MM_authFailedURL  =  MM_authFailedURL  &  MM_qsChar  &  "accessdenied=" 
&  Server.URLEncode(MM_referrer) 

Response.Redirect(MM_authFailedURL) 

End  If 

%> 

<% 

'  ***  Edit  Operations:  declare  variables 

Dim  MM_editAction 
Dim  MMabortEdit 
Dim  MMeditQuery 
Dim  MM_editCmd 

Dim  MMeditConnection 
Dim  MMeditTable 
Dim  MM_editRedirectUrl 
Dim  MM  editColumn 
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Dim  MM  recordid 


Dim  MMfleldsStr 
Dim  MMcolumnsStr 
Dim  MMfields 
Dim  MM_columns 
Dim  MM_typeArray 
Dim  MM_formVal 
Dim  MMdelim 
Dim  MMaltVal 
Dim  MM_emptyVal 
Dim  MM_i 

MM_editAction  =  CStr(Request.ServerVariables("SCRIPT_NAME")) 

If  (Request.QueryString  <>  "")  Then 

MM_edit  Action  =  MM_edit  Action  &  "?"  & 

Server.HTMLEncode(Request.QueryString) 

End  If 

'  boolean  to  abort  record  edit 
MMabortEdit  =  false 

'  query  string  to  execute 
MM_editQuery  =  "" 

%> 

<% 

'  ***  Insert  Record:  set  variables 

If  (CStr(Request("MM_insert"))  =  "forml")  Then 

MMeditConnection  =  MM_conn_DistanceLeaming_STRING 
MM_editTable  =  "Graphic" 

MMeditRedirectUrl  =  "Confirmlmage.asp" 

MM_fieldsStr 

"graphicName|value|graphicDescription|value|graphicPath|value|author|value" 

MM_columnsStr  = 

"graphicNamel', none, "|graphicDescription|', none, "|graphicPath|', none, "|author|', none,"" 

'  create  the  MM_fields  and  MM_columns  arrays 
MM_fields  =  Split(MM_fieldsStr,  "I") 

MM_columns  =  Split(MM_columnsStr,  "|") 

'  set  the  form  values 

For  MM_i  =  LBound(MM_fields)  To  UBound(MM_fields)  Step  2 
MM_fields(MM_i+l)  =  CStr(Request.Form(MM_fields(MM_i))) 

Next 
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'  append  the  query  string  to  the  redirect  URL 

If  (MM  editRedirectUrl  <>  ""  And  Request.QueryString  <>  "")  Then 
If  (InStr(I,  MM_editRedirectUrl,  vbTextCompare)  =  0  And 

Request.QueryString  <>  "")  Then 

MM_editRedirectUrl  =  MM_editRedirectUrl  &  "?"  &  Request.QueryString 
Else 

MM_editRedirectUrl  =  MM_editRedirectUrl  &  &  Request.QueryString 

End  If 
End  If 

End  If 

%> 

<% 

'  ***  Insert  Record:  construct  a  sql  insert  statement  and  execute  it 

Dim  MM_tabIe  Values 

Dim  MMdbValues 

If  (CStr(Request("MM_insert"))  <>  "")  Then 

'  create  the  sql  insert  statement 
MMjable  Values  = "" 

MM_db  Values  = 

For  MM_i  =  LBound(MM_fields)  To  UBound(MM_fields)  Step  2 
MM_formVal  =  MM_fields(MM_i+l) 

MM_typeArray  =  Split(MM_columns(MM_i+l),",'') 

MM_delim  =  MM_typeArray(0) 

If  (MM_delim  =  "none")  Then  MM_delim  =  "" 

MM_altVaI  =  MM_typeArray(I) 

If  (MM_altVal  =  "none")  Then  MM_altVal  =  "" 

MM_emptyVal  =  MM_typeArray(2) 

If  (MM_emptyVal  =  "none")  Then  MM_emptyVal  =  "" 

If  (MM  formVal  =  "")  Then 
MM_formVal  =  MM_emptyVal 
Else 

If  (MM_altVal  <>  "")  Then 
MM_formVal  =  MM_aItVaI 
Elself  (MM_delim  =  ""')  Then  '  escape  quotes 
MM_formVaI  =  ""'  &  RepIace(MM_formVaI, ""',""")  &  ""' 

Else 

MM_formVal  =  MM_delim  +  MM_formVal  +  MM_delim 
End  If 
End  If 

If  (MM_i  <>  LBound(MM_fields))  Then 
MM_tableVaIues  =  MM_table Values  & 
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MM_db Values  =  MM_dbValues  & 

End  If 

MM_tableValues  =  MM_table Values  &  MM_columns(MM_i) 

MM_db Values  =  MM_db Values  &  MM_formVal 
Next 

MM_editQuery  =  "insert  into  "  &  MM_editTable  &  "  ("  &  MM_tableValues  & 
")  values  ("  &  MM_db Values  &  ")" 

If  (Not  MM_abortEdit)  Then 
'  execute  the  insert 

Set  MM_editCmd  =  Server.CreateObject("ADODB. Command") 
MMeditCmd.ActiveConnection  =  MMeditConnection 
MMeditCmd.CommandText  =  MMeditQuery 
MM_editCmd.  Execute 
MMeditCmd.ActiveConnection.Close 

If  (MM_editRedirectUrl  <>  "")  Then 
Response.Redirect(MM_editRedirectUrl) 

End  If 
End  If 

End  If 

%> 

<% 

Dim  rs_subsection _ MMColParam 

rs_subsection _ MMColParam  =  "1" 

If  (Request.QueryStringC'subsectionid")  <>  "")  Then 

rs_subsection _ MMColParam  =  Request.QueryString("subsectionid") 

End  If 
%> 

<% 

Dim  rssubsection 

Dim  rs_subsection_numRows 

Set  rs  subsection  =  Server.CreateObject("ADODB.Recordset") 
rs_subsection.ActiveConnection  =  MM_conn_DistanceLeaming_STRING 
rs_subsection.  Source  =  "SELECT  subsectionid,  subsectionName  FROM 
Subsection  WHERE  subsectionid  =  "  +  Replace(rs_subsection _ MMColParam,  """) 

_j_  MM 

rs_subsection.CursorType  =  0 
rs_subsection.CursorLocation  =  2 
rs_subsection.LockType  =  1 
rs_subsection.Open() 

rs_subsection_numRows  =  0 

%> 
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<!DOCTYPE  html  PUBLIC  "-//W3C//DTD  XHTML  1.0  Transitional//LN" 
"http://www.w3  .org/TR/xhtml  1 /DTD/xhtml  1  -transitional.dtd"> 

<html  xmlns="http  ://www. w3  .org/ 1 999/xhtml"> 

<head> 

<title>Distance  Learning:  Form  Insert  Image</title> 

<meta  http-equiv="Content-Type"  eontent="text/html;  charset=iso-8859-l"  /> 
<link  href="DLStylesheet.css"  rel="stylesheet"  type="text/ess"  /> 

<style  type="text/css"> 

<!- 
a:  link  { 

color:  #CC3300; 

} 

a:visited  { 

color:  #CC3399; 

} 

a:hover  { 

color:  #000066; 

} 

a:  active  { 

color:  #339900; 

} 

.style  1  {color:  #CC0000} 

— > 

</style> 

<script  language="JavaScript"  type="text/JavaScript"> 

<!- 

function  MM_findObj(n,  d)  { //v4.01 

var  p,i,x;  if(!d)  d=document;  if((p=n.indexOf("?"))>0&&parent.frames. length) 

{ 

d=parent.frames[n.substring(p+ 1 )]  .document;  n=n.substring(0,p); } 
if(!(x=d[n])&&d.all)  x=d.all[n];  for  (i=0;!x&&i<d.forms.length;i++) 
x=d.  forms  [i][n]; 

for(i=0 ; !  x&&d.  lay  ers&&i<d.  layers .  length;i++) 
x=MM_fmdObj  (n,d.  lay  ers  [i]  .document) ; 

if(!x  &&  d.getLlementByld)  x=d.getElementById(n);  return  x; 

} 

function  MM_validateForm()  {  //v4.0 

var  i,p,q,nm, test, num, min, max, errors=",args=MM_validateForm.arguments; 
for  (i=0;  i<(args. length-2);  i+=3)  { test=args[i+2];  val=MM_fmdObj(args[i]); 
if  (val)  {  nm=val.name;  if  ((val=val.value)!="")  { 
if  (test.indexOf('isEmail')!=-l)  { p=val.indexOf('@'); 
if  (p<l  II  p==(val.length-l))  errors+='-  '+nm+'  must  contain  an  e-mail 

address.W; 

}  else  if  (test!='R')  {  num  =  parseFloat(val); 
if  (isNaN(val))  errors+='-  '+nm+'  must  contain  a  number.\n'; 
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if  (test.indexOf('inRange')  !=  -1)  {  p=test.indexOf(':'); 
min=test.substring(8,p);  max=test.substring(p+l); 

if  (num<min  ||  max<num)  errors+='-  '+nm+'  must  contain  a  number 
between  '+min+'  and  '+max+'.\n'; 

}  }  }  else  if  (test.charAt(O)  ==  'R')  errors  +=  '+nm+'  is  required.\n';  } 

}  if  (errors)  alert('The  following  error(s)  occurredAn'+errors); 
document. MM_retumValue  =  (errors  ==  "); 

} 

//-> 

</script> 

</head> 

<body> 

<table  width="95%"  height="214"  border="0"  align="center"  cellpadding="3" 
cellspacing="0"> 

<tr> 

<td  height="109"><table  width="100%"  border="0"  align="left" 
cellpadding="3"  cellspacing="0"  bgcolor="#DEDEBC"> 

<tr> 

<td  width="88%"  align="  center"  valign="middle" 

bgcolor="#DEDEBC"><img  src="Images/nps_banner.gif'  width="447"  height="97"  /> 

</td> 

</tr> 

</table></td> 

</tr> 

<tr> 

<td  height="50"><table  width="72%"  border="0"  align="center" 
cellpadding="3"  cellspacing="0"  bordercolor="#F6F6F3"> 

<tr> 

<td  width="14%"  bgcolor="#DEDEBC"><object 

classid="clsid:D27CDB6E-AE6D-llcf-96B8-444553540000" 

codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#ver 
sion=5, 0,0,0"  width="103"  height="24"> 

<param  name="movie"  value="button2.swf'  /> 

<param  name="quality"  value="high"  /> 

<param  name="bgcolor"  value="#DEDEBC"  /> 

<embed  src="button2.swf'  quality="high" 

pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?Pl_Prod_Ve 
rsion=ShockwaveFlash"  type="application/x-shockwave-flash"  width="103"  height="24" 
bgcolor="#DEDEBC"></embed> 

</object></td> 

<td  width="14%"  bgcolor="#DEDEBC"><object 

classid="clsid:D27CDB6E-AE6D-llcf-96B8-444553540000" 

codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#ver 
sion=5,0,0,0"  name="Search"  width="100"  height="23"  id="Search"> 

<param  name="movie"  value="buttonl.swf'  /> 

<param  name="quality"  value="high"  /> 
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<param  name="bgcolor"  value="#DEDEBC"  /> 

<embed  src="buttonLswf'  width="100"  height="23"  quality="high" 
pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?Pl_Prod_Ve 
rsion=ShockwaveFlash"  type="application/x-shockwave-flash"  bgcolor="#DEDEBC" 
name="  Search"></embed> 

</object></td> 

<td  width="14%"  bgcolor="#DEDEBC"><object 

classid="clsid:D27CDB6E-AE6D-llcf-96B8-444553540000" 

codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#ver 
sion=5, 0,0,0"  width="100"  height="23"> 

<param  name="movie"  value="button3.swf'  /> 

<param  name="quality"  value="high"  /> 

<param  name="bgcolor"  value="#DEDEBC"  /> 

<embed  src="button3.swf'  quality="high" 

pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?Pl_Prod_Ve 
rsion=ShockwaveFlash"  type="application/x-shockwave-flash"  width="100"  height="23" 
bgcolor="#DEDEBC"></embed> 

</object></td> 

<td  width="14%"  bgcolor="#DEDEBC"><object 

classid="clsid:D27CDB6E-AE6D-llcf-96B8-444553540000" 

codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#ver 
sion=5,0,0,0"  width="100"  height="23"> 

<param  name="movie"  value="button4.swf'  /> 

<param  name="quality"  value="high"  /> 

<param  name="bgcolor"  value="#DEDEBC"  /> 

<embed  src="button4.swf'  quality="high" 

pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?Pl_Prod_Ve 
rsion=ShockwaveFlash"  type="application/x-shockwave-flash"  width="100"  height="23" 
bgcolor="#DEDEBC"></embed> 

</object></td> 

<td  width="14%"  bgcolor="#DEDEBC"><object 

classid="clsid:D27CDB6E-AE6D-llcf-96B8-444553540000" 

codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#ver 
sion=5,0,0,0"  width="103"  height="24"> 

<param  name="movie"  value="button5.swf'  /> 

<param  name="quality"  value="high"  /> 

<param  name="bgcolor"  value="#DEDEBC"  /> 

<embed  src="button5.swf'  quality="high" 

pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?Pl_Prod_Ve 
rsion=ShockwaveFlash"  type="application/x-shockwave-flash"  width="103"  height="24" 
bgcolor="#DEDEBC"></embed> 

</object></td> 

</tr> 

</table></td> 

</tr> 

<tr> 
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<td><hr  />  <h3  align="center">  Insert  Image  into:<span 

class="styleI"><%=(rs_subsection.Fields.Item("subseetionName").Value)%></span>Su 
bseetion  </h3> 

<hr/> 

<form  name="formr'  id="formI"  method="POST" 

action="<%=MM_editAetion%>"> 

<table  width="95%"  border="I"  align="eenter"  eellpadding="3" 
cellspacing="0"> 

<tr> 

<td  width="29%">Image  Name  </td> 

<td  width="7I%"><input  name="graphieName"  type="text" 
id="graphicName"  size="60"  /></td> 

</tr> 

<tr> 

<td>Image  Description  </td> 

<td><textarea  name="graphicDescription"  cols="60"  rows="5" 
id="graphicDescription"></textarea></td> 

</tr> 

<tr> 

<td>Image  Relative  Path  </td> 

<td><input  name="graphicPath"  type="text"  id="graphicPath"  size="60" 

/></td> 

</tr> 

<tr> 

<td><input  name="subsectionid"  type="hidden"  id="subsectionid" 
value="<%=  Request.QueryStringC'subsectionid")  %>"  /> 

<input  name="author"  type="hidden"  id="author"  value="<%= 
Session("MM_Usemame")  %>"  /></td> 

<td><input  name="Submit"  type="submit" 

onclick="MM_validateForm('graphicName',",'R','graphicPathV','R','graphicDescriptionV', 
'R');retum  document. MM_retumValue"  value="  Submit"  /></td> 

</tr> 

</table> 


<input  type="hidden"  name="MM_insert"  value="forml"> 
</form>  <p  align="left">&nbsp;</p></td> 

</tr> 

<tr> 

<td>&nbsp;  </td> 

</tr> 

</table> 

<p>&nbsp;</p> 

<p>&nbsp;</p> 

<^ody> 

</html> 

<% 
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rs_subsection.Close() 

Set  rs_subsection  =  Nothing 

%> 


20.  Form  lnsert  Teach.asp 

<%@LANGUAGE=" VBSCRIPT"  CODEPAGE='T252"%> 

<!— #include  file="Connections/conn_DistanceLeaming.asp"  — > 

<% 

'  ***  Restrict  Access  To  Page:  Grant  or  deny  access  to  this  page 
MM_authorizedErsers="  admin" 

MM_authFailedURL="login.asp" 

MM_grantAccess=false 
If  Session("MM_Usemame")  <>  ""  Then 
If  (false  Or  CStr(Session("MM_UserAuthorization"))="")  Or  _ 

(InStr(  1  ,MM_authorizedUsers,Session("MM_UserAuthorization"))>=  1 ) 

Then 

MM_grantAccess  =  true 
End  If 
End  If 

If  Not  MM_grantAccess  Then 
MM_qsChar  =  "?" 

If  (InStr(l,MM_authFailedURL,"?")  >=  1)  Then  MM_qsChar  =  "&" 
MM_referrer  =  Request.  ServerVariables("URL") 

if  (Len(Request.QueryString())  >  0)  Then  MM_referrer  =  MM_referrer  &  "?"  & 
Request.  Query  StringO 

MM_authFailedURL  =  MM_authFailedURL  &  MM_qsChar  &  "accessdenied=" 
&  Server.URLEncode(MM_referrer) 

Response.Redirect(MM_authFailedURL) 

End  If 

%> 

<% 

'  ***  Edit  Operations:  declare  variables 

Dim  MMeditAction 
Dim  MMabortEdit 
Dim  MMeditQuery 
Dim  MMeditCmd 

Dim  MMeditConnection 
Dim  MM_editTable 
Dim  MM  editRedirectUrl 
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Dim  MMeditColumn 
Dim  MM_recordId 

Dim  MMfieldsStr 
Dim  MMcolumnsStr 
Dim  MM_fields 
Dim  MM_columns 
Dim  MM_typeArray 
Dim  MMformVal 
Dim  MMdelim 
Dim  MMaltVal 
Dim  MM_emptyVal 
Dim  MM_i 

MM_editAction  =  CStr(Request.ServerVariables("SCRIPT_NAME")) 

If  (Request.QueryString  <>  "")  Then 

MM_edit Action  =  MM_edit Action  &  "?"  & 

Server.HTMLEncode(Request.QueryString) 

End  If 

'  boolean  to  abort  record  edit 
MM_abortEdit  =  false 

'  query  string  to  execute 
MM_editQuery  = "" 

%> 

<% 

'  ***  Insert  Record:  set  variables 

If  (CStr(Request("MM_insert"))  =  "forml")  Then 

MMeditConnection  =  MM_corm_DistanceLeaming_STRING 
MM_editTable  =  "Teach" 

MMeditRedirectUrl  =  "FormMasterTeach.asp" 

MM_fieldsStr  =  "professorid|value|courseid|value|room|value" 

MM_columnsStr  = 

"professorid|none, none, NULL|courseid|none, none, NULL|room|', none,"" 

'  create  the  MM_fields  and  MM_columns  arrays 
MM_fields  =  Split(MM_fieldsStr,  "I") 

MM_columns  =  Split(MM_columnsStr,  "|") 

'  set  the  form  values 

For  MM_i  =  LBound(MM_fields)  To  UBound(MM_fields)  Step  2 
MM_fields(MM_i+l)  =  CStr(Request.Form(MM_fields(MM_i))) 

Next 
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'  append  the  query  string  to  the  redirect  URL 

If  (MM  editRedirectUrl  <>  ""  And  Request.QueryString  <>  "")  Then 
If  (InStr(I,  MM_editRedirectUrl,  vbTextCompare)  =  0  And 

Request.QueryString  <>  "")  Then 

MM_editRedirectUrl  =  MM_editRedirectUrl  &  "?"  &  Request.QueryString 
Else 

MM_editRedirectUrl  =  MM_editRedirectUrl  &  &  Request.QueryString 

End  If 
End  If 

End  If 

%> 

<% 

'  ***  Insert  Record:  construct  a  sql  insert  statement  and  execute  it 

Dim  MM_tabIe  Values 

Dim  MMdbValues 

If  (CStr(Request("MM_insert"))  <>  "")  Then 

'  create  the  sql  insert  statement 
MMjable  Values  = "" 

MM_db  Values  = 

For  MM_i  =  LBound(MM_fields)  To  UBound(MM_fields)  Step  2 
MM_formVal  =  MM_fields(MM_i+l) 

MM_typeArray  =  Split(MM_columns(MM_i+l),",'') 

MM_delim  =  MM_typeArray(0) 

If  (MM_delim  =  "none")  Then  MM_delim  =  "" 

MM_altVaI  =  MM_typeArray(I) 

If  (MM_altVal  =  "none")  Then  MM_altVal  =  "" 

MM_emptyVal  =  MM_typeArray(2) 

If  (MM_emptyVal  =  "none")  Then  MM_emptyVal  =  "" 

If  (MM  formVal  =  "")  Then 
MM_formVal  =  MM_emptyVal 
Else 

If  (MM_altVal  <>  "")  Then 
MM_formVal  =  MM_aItVaI 
Elself  (MM_delim  =  ""')  Then  '  escape  quotes 
MM_formVaI  =  ""'  &  RepIace(MM_formVaI, ""',""")  &  ""' 

Else 

MM_formVal  =  MM_delim  +  MM_formVal  +  MM_delim 
End  If 
End  If 

If  (MM_i  <>  LBound(MM_fields))  Then 
MM_tableVaIues  =  MM_table Values  & 
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MM_db Values  =  MM_dbValues  & 

End  If 

MM_tableValues  =  MM_table Values  &  MM_columns(MM_i) 

MM_db Values  =  MM_db Values  &  MM_formVal 
Next 

MM_editQuery  =  "insert  into  "  &  MM_editTable  &  "  ("  &  MM_tableValues  & 
")  values  ("  &  MM_db Values  &  ")" 

If  (Not  MM_abortEdit)  Then 
'  execute  the  insert 

Set  MM_editCmd  =  Server.CreateObject("ADODB. Command") 
MMeditCmd.ActiveConnection  =  MMeditConnection 
MMeditCmd.CommandText  =  MMeditQuery 
MM_editCmd.  Execute 
MMeditCmd.ActiveConnection.Close 

If  (MM_editRedirectUrl  <>  "")  Then 
Response.Redirect(MM_editRedirectUrl) 

End  If 
End  If 

End  If 

%> 

<% 

Dim  rs_professor 

Dim  rs_professor_numRows 

Set  rs_professor  =  Server.CreateObject("ADODB.Recordset") 

rs_professor.ActiveConnection  =  MM_conn_DistanceLeaming_STRING 

rs_professor.Source  =  "SELECT  *  FROM  User  ORDER  BY  lastName  ASC" 

rs_professor.CursorType  =  0 

rs_professor.CursorLocation  =  2 

rs_professor.LockType  =  1 

rs_professor.Open() 

rs_professor_numRows  =  0 

%> 

<% 

Dim  rs_course 

Dim  rs_course_numRows 

Set  rscourse  =  Server.CreateObject("ADODB.Recordset") 
rscourse.ActiveConnection  =  MMconnDistanceLeamingSTRING 
rs  course. Source  =  "SELECT  *  FROM  Course  ORDER  BY  courseCode  ASC" 
rs_course.CursorType  =  0 
rs  course. CursorLocation  =  2 
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rs_course.LockType  =  1 
rs_course .  Open() 

rscoursenumRows  =  0 

%> 

<!DOCTYPE  html  PUBLIC  "-//W3C//DTD  XHTML  1.0  Transitional//LN" 
"http://www.w3  .org/TR/xhtml  1/DTD/xhtml  1  -transitional.dtd"> 

<html  xmlns="http://www.w3.org/1999/xhtml"> 

<head> 

<title>Distance  Learning:  Add&quot;Teach&quot;Recoed</title> 

<meta  http-equiv="Content-Type"  content="text/html;  charset=iso-8859-l"  /> 
<link  href="DLStylesheet.css"  rel="stylesheet"  type="text/css"  /> 

<style  type="text/css"> 

<!- 
a:  link  { 

color:  #CC3300; 

} 

a:visited  { 

color:  #CC3399; 

} 

a:hover  { 

color:  #000066; 

} 

a:  active  { 

color:  #339900; 

} 

— > 

</style></head> 

<body> 

<table  width="95%"  height="214"  border="0"  align="center"  cellpadding="3" 
cellspacing="0"> 

<tr> 

<td  height="109"><table  width="100%"  border="0"  align="lefl" 
cellpadding="3"  cellspacing="0"  bgcolor="#DLDLBC"> 

<tr> 

<td  width="88%"  align="  center"  valign="middle" 

bgcolor="#DEDEBC"><img  src="Images/nps_banner.gif'  width="447"  height="97"  /> 

</td> 

</tr> 

</table></td> 

</tr> 

<tr> 

<td  height="50"><table  width="72%"  border="0"  align="center" 
cellpadding="3"  cellspacing="0"  bordercolor="#F6F6F3"> 

<tr> 
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<td  width="14%"  bgcolor="#DEDEBC"><object 

classid="clsid:D27CDB6E-AE6D-llcf-96B8-444553540000" 

codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#ver 
sion=5, 0,0,0"  width="103"  height="24"> 

<param  name="movie"  value="button2.swf'  /> 

<param  name="quality"  value="high"  /> 

<param  name="bgcolor"  value="#DEDEBC"  /> 

<embed  src="button2.swf'  quality="high" 

pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?Pl_Prod_Ve 
rsion=ShockwaveFlash"  type="application/x-shockwave-flash"  width="103"  height="24" 
bgcolor="#DEDEBC"></embed> 

</object></td> 

<td  width="14%"  bgcolor="#DEDEBC"><object 

classid="clsid:D27CDB6E-AE6D-llcf-96B8-444553540000" 

codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#ver 
sion=5,0,0,0"  name=" Search"  width="100"  height="23"  id="Search"> 

<param  name="movie"  value="buttonLswf'  /> 

<param  name="quality"  value="high"  /> 

<param  name="bgcolor"  value="#DEDEBC"  /> 

<embed  src="buttonLswf'  width="100"  height="23"  quali1y="high" 
pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?Pl_Prod_Ve 
rsion=ShockwaveFlash"  type="application/x-shockwave-flash"  bgcolor="#DEDEBC" 
name="  Search"></embed> 

</object></td> 

<td  width="14%"  bgcolor="#DEDEBC"><object 

classid="clsid:D27CDB6E-AE6D-llcf-96B8-444553540000" 

codebase="http://download.macromedia.coiii/pub/shockwave/cabs/flash/swflash.cab#ver 
sion=5,0,0,0"  width="100"  height="23"> 

<param  name="movie"  value="button3.swf'  /> 

<param  name="quality"  value="high"  /> 

<param  name="bgcolor"  value="#DEDEBC"  /> 

<embed  src="button3.swf'  quality="high" 

pluginspage="http://www.macromedia.coiii/shockwave/download/index.cgi?Pl_Prod_Ve 
rsion=ShockwaveFlash"  type="application/x-shockwave-flash"  width="100"  height="23" 
bgcolor="#DEDEBC"></embed> 

</object></td> 

<td  width="14%"  bgcolor="#DEDEBC"><object 

classid="clsid:D27CDB6E-AE6D-llcf-96B8-444553540000" 

codebase="http://download.macromedia.coiii/pub/shockwave/cabs/flash/swflash.cab#ver 
sion=5,0,0,0"  width="100"  height="23"> 

<param  name="movie"  value="button4.swf'  /> 

<param  name="quality"  value="high"  /> 

<param  name="bgcolor"  value="#DEDEBC"  /> 

<embed  src="button4.swf'  quality="high" 

pluginspage="http://www.macromedia.coin/shockwave/download/index.cgi?Pl_Prod_Ve 
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rsion=ShockwaveFlash"  type="application/x-shockwave-flash"  width="100"  height="23" 
bgcolor="#DEDEBC"></embed> 

</object></td> 

<td  width="14%"  bgcolor="#DEDEBC"><object 

classid="clsid:D27CDB6E-AE6D-llcf-96B8-444553540000" 

codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#ver 
sion=5, 0,0,0"  width="103"  height="24"> 

<param  name="movie"  value="button5.swf'  /> 

<param  name="quality"  value="high"  /> 

<param  name="bgcolor"  value="#DEDEBC"  /> 

<embed  src="button5.swf'  quality="high" 

pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?Pl_Prod_Ve 
rsion=ShockwaveFlash"  type="application/x-shockwave-flash"  width="103"  height="24" 
bgcolor="#DEDEBC"></embed> 

</object></td> 

</tr> 

</table></td> 

</tr> 

<tr> 

<td><hr  />  <h3  align="center">  Add  New  &quot;Teach&quot;  Record  </h3> 

<hr/> 

<form  name="forml"  id="forml"  method="POST" 

action="<%=MM_editAction%>"> 

<table  width="95%"  border="l"  align="  center"  cellpadding="3" 
cellspacing="0"> 

<tr> 

<td>Select  Professor  </td> 

<td><select  name="professorid"  id="professorid"> 

<% 

While  (NOT  rs_professor.EOF) 

%> 

<option 

value="<%=(rs_professor.Fields.Item("userid").Value)%>"><%=(rs_professor.Fields.Ite 
m("  lastName") .  Value)%></option> 

<% 

rs_professor.MoveNext() 

Wend 

If  (rs_professor.CursorType  >  0)  Then 
rs_professor.MoveFirst 
Else 

rs_professor.Requery 
End  If 

%> 

</select></td> 

</tr> 

<tr> 
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<td>Select  Cource  </td> 

<td><select  name="courseid"  id="courseid"> 

<% 

While  (NOT  rs  course.EOF) 

%> 

<option 

value="<%=(rs_course.Fields.Item("courseid").Value)%>"><%=(rs_course.Fields.Item(" 

courseCode").Value)%></option> 

<% 

rs_course.MoveNext() 

Wend 

If  (rs  course.CursorType  >  0)  Then 
rs_course.MoveFirst 
Else 

rs_course.Requery 
End  If 

%> 

</select></td> 

</tr> 

<tr> 

<td>Room</td> 

<td><input  name="room"  type="text"  id="room"  /></td> 

</tr> 

<tr> 

<td>&nbsp;</td> 

<td><input  type=" submit"  name="Submit"  value=" Submit"  /></td> 

</tr> 

</table> 


<input  type="hidden"  name="MM_insert"  value="formr'> 
</form>  <p  align="left">&nbsp;</p></td> 

</tr> 

<tr> 

<td>&nbsp;  </td> 

</tr> 

</table> 

<p>&nbsp;</p> 

<p>&nbsp;</p> 

</body> 

</html> 

<% 

rs_professor.Close() 

Set  rs_professor  =  Nothing 

%> 

<% 

rs_course.Close() 
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Set  rs_course  =  Nothing 

%> 


21.  Form  Master  Admin.asp 


<%@LANGUAGE=" VBSCRIPT"  CODEPAGE='T252"%> 

<% 

'  ***  Restrict  Access  To  Page:  Grant  or  deny  access  to  this  page 
MM_authorizedUsers="  admin" 

MM_authFailedErRL="  login,  asp" 

MM_grantAccess=false 
If  Session("MM_Usemame")  <>  ""  Then 
If  (false  Or  CStr(Session("MM_UserAuthorization"))="")  Or  _ 

(InStr(l,MM_authorizedUsers,Session("MM_UserAuthorization"))>=l) 

Then 

MM_grantAccess  =  true 
End  If 
End  If 

If  Not  MM_grantAccess  Then 
MM_qsChar  =  "?" 

If  (InStr(l,MM_authFailedURL,"?")  >=  1)  Then  MM_qsChar  =  "&" 
MM_referrer  =  Request.  ServerVariables("URL") 

if  (Len(Request. Query StringO)  >  0)  Then  MM_referrer  =  MM_referrer  &  "?"  & 
Request.QueryStringO 

MM_authFailedURL  =  MM_authFailedURL  &  MM_qsChar  &  "accessdenied=" 
&  Server.URLEncode(MM_referrer) 

Response.Redirect(MM_authFailedURL) 

End  If 

%> 

<!DOCTYPE  html  PUBLIC  "-//W3C//DTD  XHTML  1.0  Transitional//EN" 
"http://www.w3  .org/TR/xhtml  1/DTD/xhtml  1  -transitional.dtd"> 

<html  xmlns="http://www.w3.org/1999/xhtml"> 

<head> 

<title>Distance  Learning:  Template</title> 

<meta  http-equiv="Content-Type"  content="text/html;  charset=iso-8859-l"  /> 
<link  href="DLStylesheet.css"  rel="stylesheet"  type="text/css"  /> 

<style  type="text/css"> 

<!- 
a:  link  { 

color:  #CC3300; 

} 
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aivisited  { 

color:  #CC3399; 

} 

a:hover  { 

color:  #000066; 

} 

a:  active  { 

color:  #339900; 

} 

.style  1  {color:  #336633} 

— > 

</style></head> 

<body> 

<table  width="95%"  height="214"  border="0"  align="center"  cellpadding="3" 
cellspacing="0"> 

<tr> 

<td  height="109"><table  width="100%"  border="0"  align="left" 
cellpadding="3"  cellspacing="0"  bgcolor="#DEDEBC"> 

<tr> 

<td  width="88%"  align="  center"  valign="middle" 

bgcolor="#DEDEBC"><img  sre="Images/nps_banner.gif'  width="447"  height="97"  /> 

</td> 

</tr> 

</table></td> 

</tr> 

<tr> 

<td  height="50"><table  width="72%"  border="0"  align="eenter" 
cellpadding="3"  eellspaeing="0"  bordereolor="#F6F6F3"> 

<tr> 

<td  width="14%"  bgeolor="#DEDEBC"><object 

classid="elsid:D27CDB6E-AE6D-llcf-96B8-444553540000" 

codebase="http://download.macromedia.eom/pub/shoekwave/cabs/flash/swflash.eab#ver 
sion=5, 0,0,0"  width="103"  height="24"> 

<param  name="movie"  value="button2.swf'  /> 

<param  name="quality"  value="high"  /> 

<param  name="bgcolor"  value="#DEDEBC"  /> 

<embed  src="button2.swf'  quality="high" 

pluginspage="http://www.maeromedia.com/shockwave/download/index.cgi?Pl_Prod_Ve 
rsion=ShockwaveFlash"  type="application/x-shockwave-flash"  width="103"  height="24" 
bgcolor="#DEDEBC"></embed> 

</object></td> 

<td  width="14%"  bgeolor="#DEDEBC"><object 

classid="elsid:D27CDB6E-AE6D-llcf-96B8-444553540000" 

codebase="http://download.macromedia.eom/pub/shoekwave/eabs/flash/swflash.eab#ver 
sion=5,0,0,0"  name="Seareh"  width="100"  height="23"  id="Seareh"> 

<param  name="movie"  value="buttonl.swf'  /> 
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<param  name="quality"  value="high"  /> 

<param  name="bgcolor"  value="#DEDEBC"  /> 

<embed  src="buttonl.swf'  width="100"  height="23"  quality="high" 
pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?Pl_Prod_Ve 
rsion=ShockwaveFlash"  type="application/x-shockwave-flash"  bgcolor="#DEDEBC" 
name="  Search"></embed> 

</object></td> 

<td  width="14%"  bgcolor="#DEDEBC"><object 

classid="clsid:D27CDB6E-AE6D-llcf-96B8-444553540000" 

codebase="htq)://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#ver 
sion=5, 0,0,0"  width="100"  height="23"> 

<param  name="movie"  value="button3.swf'  /> 

<param  name="quality"  value="high"  /> 

<param  name="bgcolor"  value="#DEDEBC"  /> 

<embed  src="button3.swf'  quality="high" 

pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?Pl_Prod_Ve 
rsion=ShockwaveFlash"  type="application/x-shockwave-flash"  width="100"  height="23" 
bgcolor="#DEDEBC"></embed> 

</object></td> 

<td  width="14%"  bgcolor="#DEDEBC"><object 

classid="clsid:D27CDB6E-AE6D-llcf-96B8-444553540000" 

codebase="htq?://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#ver 
sion=5,0,0,0"  width="100"  height="23"> 

<param  name="movie"  value="button4.swf '  /> 

<param  name="quality"  value="high"  /> 

<param  name="bgcolor"  value="#DEDEBC"  /> 

<embed  src="button4.swf'  quality="high" 

pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?Pl_Prod_Ve 
rsion=ShockwaveFlash"  type="application/x-shockwave-flash"  width="100"  height="23" 
bgcolor="#DEDEBC"></embed> 

</object></td> 

<td  width="14%"  bgcolor="#DEDEBC"><object 

classid="clsid:D27CDB6E-AE6D-llcf-96B8-444553540000" 

codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#ver 
sion=5,0,0,0"  width="103"  height="24"> 

<param  name="movie"  value="button5.swf'  /> 

<param  name="quality"  value="high"  /> 

<param  name="bgcolor"  value="#DEDEBC"  /> 

<embed  src="button5.swf'  quality="high" 

pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?Pl_Prod_Ve 
rsion=ShockwaveFlash"  type="application/x-shockwave-flash"  width="103"  height="24" 
bgcolor="#DEDEBC"></embed> 

</object></td> 

</tr> 

</table></td> 

</tr> 


210 


<tr> 

<td><hr  />  <h3  align="center">  <span  class=" style  l">Administrator</span> 

Master  Form  </h3> 

<hr/> 

<table  width="45%"  border="l"  align="center"  cellpadding="3" 
cellspacing="0"> 

<tr> 

<td  width="71%"><strong> Alter  User  Record  </strong></td> 

<td  width="29%"><object  classid="clsid:D27CDB6E-AE6D-l  lcf-96B8- 
444553540000" 

codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#ver 
sion=5, 0,0,0"  width="100"  height="20"> 

<param  name="movie"  value="button8.swf'  /> 

<param  name="quality"  value="high"  /> 

<param  name="bgcolor"  value="#DEDEBC"  /> 

<embed  src="button8.swf'  quality="high" 

pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?Pl_Prod_Ve 
rsion=ShockwaveFlash"  type="application/x-shockwave-flash"  width="100"  height="20" 
bgcolor="#DEDEBC"></embed> 

</object></td> 

</tr> 

<tr> 

<td><strong> Alter  Category  Record  </strong></td> 

<td><object  classid="clsid:D27CDB6E-AE6D-llcf-96B8-444553540000" 
codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#ver 
sion=5,0,0,0"  width="100"  height="20"> 

<param  name="movie"  value="Category.swf '  /> 

<param  name="quality"  value="high"  /> 

<param  name="bgcolor"  value="#DEDEBC"  /> 

<embed  src="Category.swf'  quality="high" 

pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?Pl_Prod_Ve 
rsion=ShockwaveFlash"  type="application/x-shockwave-flash"  width="100"  height="20" 
bgcolor="#DEDEBC"></embed> 

</object></td> 

</tr> 

<tr> 

<td><strong> Alter  &quot;Teach&quot;  Record  </strong></td> 

<td><object  classid="clsid:D27CDB6E-AE6D-llcf-96B8-444553540000" 
codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#ver 
sion=5,0,0,0"  width="100"  height="20"> 

<param  name="movie"  value="Teach.swf'  /> 

<param  name="quality"  value="high"  /> 

<param  name="bgcolor"  value="#DEDEBC"  /> 

<embed  src="Teach.swf'  quality="high" 

pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?Pl_Prod_Ve 
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rsion=ShockwaveFlash"  type="application/x-shockwave-flash"  width="100"  height="20" 
bgcolor="#DEDEBC"></embed> 

</object></td> 

</tr> 

</table> 

<p>&nbsp;</p> 

<p  align="left">&nbsp;</p></td> 

</tr> 

<tr> 

<td>&nbsp;  </td> 

</tr> 

</table> 

<p>&nbsp;</p> 

<p>&nbsp;</p> 

</body> 

</html> 
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Master_Category.asp 


<%@LANGUAGE=" VBSCRIPT"  CODEPAGE='T252"%> 

<!— #include  file="Connections/conn_DistanceLeaming.asp"  — > 

<% 

'  ***  Restrict  Access  To  Page:  Grant  or  deny  access  to  this  page 
MM_authorizedUsers="  admin" 

MM_authFailedURL="  login,  asp" 

MM_grantAccess=false 
If  Session("MM_Usemame")  <>  ""  Then 
If  (false  Or  CStr(Session("MM_UserAuthorization"))="")  Or  _ 

(InStr(l,MM_authorizedUsers,Session("MM_UserAuthorization"))>=l) 

Then 

MM_grantAccess  =  true 
End  If 
End  If 

If  Not  MM_grantAccess  Then 
MM_qsChar  =  "?" 

If  (InStr(l,MM_authFailedURL,"?")  >=  1)  Then  MM  qsChar  =  "&" 
MM_referrer  =  Request.  ServerVariables("URL") 

if  (Len(Request.QueryString())  >  0)  Then  MM_referrer  =  MM_referrer  &  "?"  & 
Request.QueryStringO 

MM_authFailedURL  =  MM_authFailedURL  &  MM_qsChar  &  "accessdenied=" 
&  Server.URLEncode(MM_referrer) 

Response.Redirect(MM_authFailedURL) 

End  If 

%> 

<% 

Dim  rscategory 

Dim  rs_category_numRows 

Set  rs  category  =  Server. CreateObject("ADODB. Recordset") 
rs_category.ActiveConnection  =  MM_conn_DistanceLeaming_STRING 
rs_category. Source  =  "SELECT  *  FROM  Category  ORDER  BY  categoryName 

ASC" 

rs_category.CursorType  =  0 
rs_category.CursorLocation  =  2 
rs_category.LockType  =  1 
rs_category.Open() 

rs_category_nuniRows  =  0 

%> 

<!DOCTYPE  html  PUBLIC  "-//W3C//DTD  XHTML  1.0  Transitional//EN" 
"http://www.w3  .org/TR/xhtml  1 /DTD/xhtml  1  -transitional.dtd"> 

<html  xmlns="http  ://www. w3  .org/ 1 999/xhtml"> 
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<head> 

<title>Distance  Learning:  Master  Category  Fomi</title> 

<meta  http-equiv="Content-Type"  content="text/html;  charset=iso-8859-l"  /> 
<link  href="DLStylesheet.css"  rel="stylesheet"  type="text/css"  /> 

<style  type="text/css"> 

<!- 
a:  link  { 

color:  #CC3300; 

} 

a:visited  { 

color:  #CC3399; 

} 

a:liover  { 

color:  #000066; 

} 

a:  active  { 

color:  #339900; 

} 

•stylel  {color:  #336633} 

— > 

</style></head> 

<body> 

<table  width="95%"  height="214"  border="0"  align="center"  cellpadding="3" 
cellspacing="0"> 

<tr> 

<td  height="109"><table  width="100%"  border="0"  align="left" 
cellpadding="3"  cellspacing="0"  bgcolor="#DEDEBC"> 

<tr> 

<td  width="88%"  align="  center"  valign="niiddle" 

bgcolor="#DEDEBC"><img  src="Images/nps_banner.gif'  width="447"  height="97"  /> 

</td> 

</tr> 

</table></td> 

</tr> 

<tr> 

<td  height="50"><table  width="72%"  border="0"  align="center" 
cellpadding="3"  cellspacing="0"  bordercolor="#F6F6F3"> 

<tr> 

<td  width="14%"  bgcolor="#DEDEBC"><object 

classid="clsid:D27CDB6E-AE6D-llcf-96B8-444553540000" 

codebase="http://download.macromedia.coni/pub/shockwave/cabs/flash/swflash.cab#ver 
sion=5, 0,0,0"  width="103"  height="24"> 

<param  nanie="movie"  value="button2.swf'  /> 

<param  name="quality"  value="high"  /> 

<param  nanie="bgcolor"  value="#DEDEBC"  /> 
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<embed  src="button2.swf'  quality="high" 

pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?Pl_Prod_Ve 
rsion=ShockwaveFlash"  type="application/x-shockwave-flash"  width="103"  height="24" 
bgcolor="#DEDEBC"></embed> 

</object></td> 

<td  width="14%"  bgcolor="#DEDEBC"><object 

classid="clsid:D27CDB6E-AE6D-llcf-96B8-444553540000" 

codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#ver 
sion=5, 0,0,0"  name=" Search"  width="100"  height="23"  id="Search"> 

<param  name="movie"  value="buttonl.swf'  /> 

<param  name="quality"  value="high"  /> 

<param  name="bgcolor"  value="#DEDEBC"  /> 

<embed  src="buttonl.swf'  width="100"  height="23"  quality="high" 
pluginspage="http://www.macromedia.coiii/shockwave/download/index.cgi?Pl_Prod_Ve 
rsion=ShockwaveFlash"  type="application/x-shockwave-flash"  bgcolor="#DEDEBC" 
name="  Search"></embed> 

</object></td> 

<td  width="14%"  bgcolor="#DEDEBC"><object 

classid="clsid:D27CDB6E-AE6D-llcf-96B8-444553540000" 

codebase="htq)://download.macromedia.coiii/pub/shockwave/cabs/flash/swflash.cab#ver 
sion=5,0,0,0"  width="100"  height="23"> 

<param  name="movie"  value="button3.swf'  /> 

<param  name="quality"  value="high"  /> 

<param  name="bgcolor"  value="#DEDEBC"  /> 

<embed  src="button3.swf'  quality="high" 

pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?Pl_Prod_Ve 
rsion=ShockwaveFlash"  type="applicatioii/x-shockwave-flash"  width="100"  height="23" 
bgcolor="#DEDEBC"></embed> 

</object></td> 

<td  width="14%"  bgcolor="#DEDEBC"><object 

classid="clsid:D27CDB6E-AE6D-llcf-96B8-444553540000" 

codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#ver 
sion=5,0,0,0"  width="100"  height="23"> 

<param  name="movie"  value="button4.swf '  /> 

<param  name="quality"  value="high"  /> 

<param  name="bgcolor"  value="#DEDEBC"  /> 

<embed  src="button4.swf'  quality="high" 

pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?Pl_Prod_Ve 
rsion=ShockwaveFlash"  type="applicatioii/x-shockwave-flash"  width="100"  height="23" 
bgcolor="#DEDEBC"></embed> 

</object></td> 

<td  width="14%"  bgcolor="#DEDEBC"><object 

classid="clsid:D27CDB6E-AE6D-llcf-96B8-444553540000" 

codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#ver 
sion=5,0,0,0"  width="103"  height="24"> 

<param  name="movie"  value="button5.swf'  /> 
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<param  name="quality"  value="high"  /> 

<param  name="bgcolor"  value="#DEDEBC"  /> 

<embed  src="button5.swf'  quality="high" 

pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?Pl_Prod_Ve 
rsion=ShockwaveFlash"  type="application/x-shockwave-flash"  width="103"  height="24" 
bgcolor="#DEDEBC"></embed> 

</object></td> 

</tr> 

</table></td> 

</tr> 

<tr> 

<td><hr  />  <h3  align="center">  <span  class="stylel">Category</span> 

Master  Form  </h3> 

<hr/> 

<form  name="formr'  id="formr'  method="get" 

action="Form_Insert_Category.asp"> 

<table  width="95%"  border="l"  align="  center"  cellpadding="3" 
cellspacing="0"> 

<tr> 

<td  width="40%"><strong>Add  New  Category  </strong></td> 

<td  width="60%"><input  type="submit"  name="Submit"  value=" Submit" 

/></td> 

</tr> 

</table> 

</form> 

<form  name="form2"  id="form2"  method="get" 

action="Form_Update_Category.asp"> 

<table  width="95%"  border="l"  align="  center"  cellpadding="3" 
cellspacing="0"> 

<tr> 

<td  width="40%"><strong>Update  Existing  Category  Record 
</strong></td> 

<td  width="60%"><select  name="categoryid"  id="categoryid"> 

<% 

While  (NOT  rs  category.EOF) 

%> 

<option 

value="<%=(rs_category.Fields.Item("categoryid").Value)%>"><%=(rs_category.Fields. 

Item("categoryName").Value)%></option> 

<% 

rs_category.MoveNext() 

Wend 

If  (rs_category.CursorType  >  0)  Then 
rs_category.MoveFirst 
Else 

rs_category.Requery 
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End  If 

%> 


</select> 

<input  type="  submit"  name="Submit2"  value="  Submit"  /></td> 

</tr> 

</table> 

</form> 

<form  name="form3"  id="form3"  method="get" 

action="Form_Delete_Category.asp"> 

<table  width="95%"  border="l"  align="  center"  cellpadding="3" 
cellspacing="0"> 

<tr> 

<td  width="40%"><strong>Delete  Existing  Category  Record 

</strong></td> 

<td  width="60%"><select  name="categoryid"  id="categoryid"> 

<% 

While  (NOT  rs  category.EOF) 

%> 

<option 

value="<%=(rs_category.Fields.Item("categoryid").Value)%>"><%=(rs_category.Fields. 
Item( "  categoryN  ame")  .Value)  %></ option> 

<% 

rs_category.MoveNext() 

Wend 

If  (rs_category.CursorType  >  0)  Then 
rs_category  .MoveFirst 
Else 

rs_category.Requery 
End  If 

%> 

</select> 

<input  type="submit"  name="Submit3"  value=" Submit"  /></td> 

</tr> 

</table> 

</form>  <p>&nbsp;</p> 

<p>&nbsp;</p> 

<p  align="left">&nbsp;</p></td> 

</tr> 

<tr> 

<td>&nbsp;  </td> 

</tr> 

</table> 

<p>&nbsp;</p> 

<p>&nbsp;</p> 

</body> 

</htmI> 
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<% 

rs_category.Close() 

Set  rs_category  =  Nothing 

%> 


23.  Form  Master  Teach.asp 

<%@LANGUAGE=" VBSCRIPT"  CODEPAGE='T252"%> 

<!— #include  file="Connections/conn_DistanceLeaming.asp"  — > 

<% 

'  ***  Restrict  Access  To  Page:  Grant  or  deny  access  to  this  page 
MM_authorizedErsers="  admin" 

MM_authFailedURL="login.asp" 

MM_grantAccess=false 
If  Session("MM_Usemame")  <>  ""  Then 
If  (false  Or  CStr(Session("MM_UserAuthorization"))="")  Or  _ 

(InStr(  1  ,MM_authorizedUsers,Session("MM_UserAuthorization"))>=  1 ) 

Then 

MM_grantAccess  =  true 
End  If 
End  If 

If  Not  MM_grantAccess  Then 
MM_qsChar  =  "?" 

If  (InStr(l,MM_authFailedURL,"?")  >=  1)  Then  MM  qsChar  =  "&" 
MM_referrer  =  Request.  ServerVariables("URL") 

if  (Len(Request.QueryString())  >  0)  Then  MM_referrer  =  MM_referrer  &  "?"  & 
Request.  Query  StringO 

MM_authFailedURL  =  MM_authFailedURL  &  MM_qsChar  &  "accessdenied=" 
&  Server.URLEncode(MM_referrer) 

Response.Redirect(MM_authFailedURL) 

End  If 

%> 

<% 

Dim  rs_professor 

Dim  rs_professor_numRows 

Set  rs_professor  =  Server.CreateObject("ADODB.Recordset") 
rs_professor.ActiveConnection  =  MM_conn_DistanceLeaming_STRING 
rs_professor.Source  =  "SELECT  *  FROM  User  ORDER  BY  lastName  ASC" 
rs_professor.CursorType  =  0 
rs_professor.CursorLocation  =  2 
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rs_professor.LockType  =  1 
rs_professor.Open() 

rs_professor_numRows  =  0 

%> 

<% 

Dim  rs_course 

Dim  rs_course_numRows 

Set  rscourse  =  Server.CreateObject("ADODB.Recordset") 

rscourse.ActiveConnection  =  MMconnDistanceLeamingSTRING 

rs  course. Source  =  "SELECT  *  FROM  Course  ORDER  BY  courseCode  ASC" 

rs_course.CursorType  =  0 

rs_course.CursorLocation  =  2 

rs_course.LockType  =  1 

rs_course .  Open() 

rs_course_numRows  =  0 

%> 

<% 

Dim  rs_professorTeach 

Dim  rs_professorTeach_numRows 

Set  rs_professorTeach  =  Server.CreateObject("ADODB.Recordset") 
rs_professorTeach.ActiveConnection  =  MMconnDistanceLeamingSTRING 
rs_professorTeach.Source  =  "SELECT  LFser.lastName,  User.userid  FROM 
Teach,  User  WHERE  User.userid=  Teach.professorid" 
rs_professorTeach.CursorType  =  0 
rs_professorTeach.CursorLocation  =  2 
rs_professorTeach.LockType  =  1 
rs_professorTeach.Open() 

rs_professorTeach_numRows  =  0 

%> 

<!DOCTYPE  html  PUBLIC  "-//W3C//DTD  XHTML  1.0  Transitional//EN" 
"http://www.w3  .org/TR/xhtml  1/DTD/xhtml  1  -transitional.dtd"> 

<html  xmlns="http://www.w3.org/1999/xhtml"> 

<head> 

<title>Distance  Learning:  Teach  Master  Form</title> 

<meta  http-equiv="Content-Type"  content="text/html;  charset=iso-8859-l"  /> 
<link  href="DLStylesheet.css"  rel="stylesheet"  type="text/css"  /> 

<style  type="text/css"> 

<!- 
a:  link  { 

color:  #CC3300; 

} 
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aivisited  { 

color:  #CC3399; 

} 

a:hover  { 

color:  #000066; 

} 

a:  active  { 

color:  #339900; 

} 

.style  1  {color:  #336633} 

— > 

</style></head> 

<body> 

<table  width="95%"  height="214"  border="0"  align="center"  cellpadding="3" 
cellspacing="0"> 

<tr> 

<td  height="109"><table  width="100%"  border="0"  align="left" 
cellpadding="3"  cellspacing="0"  bgcolor="#DEDEBC"> 

<tr> 

<td  width="88%"  align="  center"  valign="middle" 

bgcolor="#DEDEBC"><img  sre="Images/nps_banner.gif'  width="447"  height="97"  /> 

</td> 

</tr> 

</table></td> 

</tr> 

<tr> 

<td  height="50"><table  width="72%"  border="0"  align="eenter" 
cellpadding="3"  eellspaeing="0"  bordereolor="#F6F6F3"> 

<tr> 

<td  width="14%"  bgeolor="#DEDEBC"><object 

classid="elsid:D27CDB6E-AE6D-llcf-96B8-444553540000" 

codebase="http://download.macromedia.eom/pub/shoekwave/eabs/flash/swflash.eab#ver 
sion=5, 0,0,0"  width="103"  height="24"> 

<param  name="movie"  value="button2.swf'  /> 

<param  name="quality"  value="high"  /> 

<param  name="bgcolor"  value="#DEDEBC"  /> 

<embed  src="button2.swf'  quality="high" 

pluginspage="http://www.maeromedia.com/shockwave/download/index.cgi?Pl_Prod_Ve 
rsion=ShockwaveFlash"  type="application/x-shockwave-flash"  width="103"  height="24" 
bgcolor="#DEDEBC"></embed> 

</object></td> 

<td  width="14%"  bgeolor="#DEDEBC"><object 

classid="elsid:D27CDB6E-AE6D-llcf-96B8-444553540000" 

codebase="http://download.macromedia.eom/pub/shoekwave/eabs/flash/swflash.eab#ver 
sion=5,0,0,0"  name="Seareh"  width="100"  height="23"  id="Seareh"> 

<param  name="movie"  value="buttonl.swf'  /> 
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<param  name="quality"  value="high"  /> 

<param  name="bgcolor"  value="#DEDEBC"  /> 

<embed  src="buttonl.swf'  width="100"  height="23"  quality="high" 
pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?Pl_Prod_Ve 
rsion=ShockwaveFlash"  type="application/x-shockwave-flash"  bgcolor="#DEDEBC" 
name="  Search"></embed> 

</object></td> 

<td  width="14%"  bgcolor="#DEDEBC"><object 

classid="clsid:D27CDB6E-AE6D-llcf-96B8-444553540000" 

codebase="htq)://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#ver 
sion=5, 0,0,0"  width="100"  height="23"> 

<param  name="movie"  value="button3.swf'  /> 

<param  name="quality"  value="high"  /> 

<param  name="bgcolor"  value="#DEDEBC"  /> 

<embed  src="button3.swf'  quality="high" 

pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?Pl_Prod_Ve 
rsion=ShockwaveFlash"  type="application/x-shockwave-flash"  width="100"  height="23" 
bgcolor="#DEDEBC"></embed> 

</object></td> 

<td  width="14%"  bgcolor="#DEDEBC"><object 

classid="clsid:D27CDB6E-AE6D-llcf-96B8-444553540000" 

codebase="htq?://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#ver 
sion=5,0,0,0"  width="100"  height="23"> 

<param  name="movie"  value="button4.swf '  /> 

<param  name="quality"  value="high"  /> 

<param  name="bgcolor"  value="#DEDEBC"  /> 

<embed  src="button4.swf'  quality="high" 

pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?Pl_Prod_Ve 
rsion=ShockwaveFlash"  type="application/x-shockwave-flash"  width="100"  height="23" 
bgcolor="#DEDEBC"></embed> 

</object></td> 

<td  width="14%"  bgcolor="#DEDEBC"><object 

classid="clsid:D27CDB6E-AE6D-llcf-96B8-444553540000" 

codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#ver 
sion=5,0,0,0"  width="103"  height="24"> 

<param  name="movie"  value="button5.swf'  /> 

<param  name="quality"  value="high"  /> 

<param  name="bgcolor"  value="#DEDEBC"  /> 

<embed  src="button5.swf'  quality="high" 

pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?Pl_Prod_Ve 
rsion=ShockwaveFlash"  type="application/x-shockwave-flash"  width="103"  height="24" 
bgcolor="#DEDEBC"></embed> 

</object></td> 

</tr> 

</table></td> 

</tr> 
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<tr> 

<td><hr  />  <h3  align="center">  <span 

class="stylel">&quot;Teach&quot;</span>  Master  Form  </h3> 

<hr/> 

<form  name="formr'  id="formr'  method="get" 

action="Form_Insert_Teach.asp"> 

<table  width="95%"  border="l"  align="  center"  cellpadding="3" 

cellspacing="0"> 

<tr> 

<td  width="39%"><strong>Add  New  &quot;Teach&quot;  Record 
</strong></td> 

<td  width="61%"><input  type="submit"  name="Submit"  value=" Submit" 

/></td> 

</tr> 

</table> 

</form> 

<form  name="form3"  id="form3"  method="get" 

action="Form_Delete_Teach.asp"> 

<table  width="95%"  border="l"  align="  center"  cellpadding="3" 

cellspacing="0"> 

<tr> 

<td  width="39%"><strong>Delete  Existing  &quot;Teach&quot;  Record 
</strong></td> 

<td  width="61%"><select  name="professorid"  id="professorid"> 

<% 

While  (NOT  rs_professorTeach.EOF) 

%> 

<option 

value="<%=(rs_professorTeach.Fields.Item("userid").Value)%>"><%=(rs_professorTea 

ch.Fields.Item("lastName").Value)%></option> 

<% 

rs_professorTeach.MoveNext() 

Wend 

If  (rs_professorTeach.CursorType  >  0)  Then 
rs_professorTeach.MoveFirst 
Else 

rs_professorTeach.Requery 
End  If 

%> 

</select> 

<select  name="courseid"  id="courseid"> 

<% 

While  (NOT  rs  course.EOF) 

%> 
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<option 

value="<%=(rs_course.Fields.Item("courseid").Value)%>"><%=(rs_course.Fields.Item(" 

courseCode").Value)%></option> 

<% 

rs_course.MoveNext() 

Wend 

If  (rs_course.CursorType  >  0)  Then 
rs_course.MoveFirst 
Else 

rs_course.Requery 
End  If 

%> 

</select> 

<input  type="  submit"  name="  Submits "  value="  Submit"  /></td> 

</tr> 

</table> 

</form>  <p>&nbsp;</p>  <p>&nbsp;</p> 

<p  align="left">&nbsp;</p></td> 

</tr> 

</table> 

<p>&nbsp;</p> 

<p>&nbsp;</p> 

</body> 

</html> 

<% 

rs_professor.Close() 

Set  rs_professor  =  Nothing 

%> 

<% 

rs_course.Close() 

Set  rs_course  =  Nothing 

%> 

<% 

rs_professorTeach.Close() 

Set  rs_professorTeach  =  Nothing 

%> 
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orm_Master_User.asp 

<%@LANGUAGE=" VBSCRIPT"  CODEPAGE='T252"%> 

<!— #include  file="Connections/conn_DistanceLeaming.asp"  — > 

<% 

'  ***  Restrict  Access  To  Page:  Grant  or  deny  access  to  this  page 
MM_authorizedUsers="  admin" 

MM_authFailedURL="  login,  asp" 

MM_grantAccess=false 
If  Session("MM_Usemame")  <>  ""  Then 
If  (false  Or  CStr(Session("MM_UserAuthorization"))="")  Or  _ 

(InStr(l,MM_authorizedUsers,Session("MM_UserAuthorization"))>=l) 

Then 

MM_grantAccess  =  true 
End  If 
End  If 

If  Not  MM_grantAccess  Then 
MM_qsChar  =  "?" 

If  (InStr(l,MM_authFailedURL,"?")  >=  1)  Then  MM_qsChar  =  "&" 
MM_referrer  =  Request.  ServerVariables("URL") 

if  (Len(Request. Query StringO)  >  0)  Then  MM_referrer  =  MM_referrer  &  "?"  & 
Request.QueryStringO 

MM_authFailedURL  =  MM_authFailedURL  &  MM_qsChar  &  "accessdenied=" 
&  Server.URLEncode(MM_referrer) 

Response.Redirect(MM_authFailedURL) 

End  If 

%> 

<% 

Dim  rsuser 

Dim  rs_user_numRows 

Set  rs  user  =  Server.CreateObject("ADODB. Recordset") 

rs_user.ActiveConnection  =  MM_conn_DistanceLeaming_STRING 

rs_user. Source  =  "SELECT  *  FROM  User" 

rs_user.CursorType  =  0 

rs_user.CursorLocation  =  2 

rs_user.LockType  =  1 

rs_user.Open() 

rs_user_numRows  =  0 

%> 

<!DOCTYPE  html  PUBLIC  "-//W3C//DTD  XHTML  1.0  Transitional//EN" 
"http://www.w3  .org/TR/xhtml  1/DTD/xhtml  1  -transitional.dtd"> 
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<html  xmlns="http  ://www. w3  .org/ 1 999/xhtml"> 

<head> 

<title>Distance  Learning:  Form  Master  User</title> 

<meta  http-equiv="Content-Type"  eontent="text/html;  charset=iso-8859-l"  /> 
<link  href="DLStylesheet.css"  rel="stylesheet"  type="text/ess"  /> 

<style  type="text/css"> 

<!- 
a:  link  { 

color:  #CC3300; 

} 

a:visited  { 

color:  #CC3399; 

} 

a:hover  { 

color:  #000066; 

} 

a:  active  { 

color:  #339900; 

} 

. style  1  {color:  #336600} 

— > 

</style></head> 

<body> 

<table  width="95%"  height="214"  border="0"  align="center"  cellpadding="3" 
cellspacing="0"> 

<tr> 

<td  height="109"><table  width="100%"  border="0"  align="lefl" 
cellpadding="3"  cellspacing="0"  bgcolor="#DEDEBC"> 

<tr> 

<td  width="88%"  align="  center"  valign="middle" 

bgcolor="#DEDEBC"><img  src="Images/nps_banner.gif'  width="447"  height="97"  /> 

</td> 

</tr> 

</table></td> 

</tr> 

<tr> 

<td  height="50"><table  width="72%"  border="0"  align="center" 
cellpadding="3"  cellspacing="0"  bordercolor="#F6F6F3"> 

<tr> 

<td  width="14%"  bgcolor="#DEDEBC"><object 

classid="clsid:D27CDB6E-AE6D-llcf-96B8-444553540000" 

codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#ver 
sion=5, 0,0,0"  width="103"  height="24"> 

<param  name="movie"  value="button2.swf'  /> 

<param  name="quality"  value="high"  /> 

<param  name="bgcolor"  value="#DEDEBC"  /> 
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<embed  src="button2.swf'  quality="high" 

pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?Pl_Prod_Ve 
rsion=ShockwaveFlash"  type="application/x-shockwave-flash"  width="103"  height="24" 
bgcolor="#DEDEBC"></embed> 

</object></td> 

<td  width="14%"  bgcolor="#DEDEBC"><object 

classid="clsid:D27CDB6E-AE6D-llcf-96B8-444553540000" 

codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#ver 
sion=5, 0,0,0"  name=" Search"  width="100"  height="23"  id="Search"> 

<param  name="movie"  value="buttonl.swf'  /> 

<param  name="quality"  value="high"  /> 

<param  name="bgcolor"  value="#DEDEBC"  /> 

<embed  src="buttonl.swf'  width="100"  height="23"  quality="high" 
pluginspage="http://www.macromedia.coiii/shockwave/download/index.cgi?Pl_Prod_Ve 
rsion=ShockwaveFlash"  type="application/x-shockwave-flash"  bgcolor="#DEDEBC" 
name="  Search"></embed> 

</object></td> 

<td  width="14%"  bgcolor="#DEDEBC"><object 

classid="clsid:D27CDB6E-AE6D-llcf-96B8-444553540000" 

codebase="htq)://download.macromedia.coiii/pub/shockwave/cabs/flash/swflash.cab#ver 
sion=5,0,0,0"  width="100"  height="23"> 

<param  name="movie"  value="button3.swf'  /> 

<param  name="quality"  value="high"  /> 

<param  name="bgcolor"  value="#DEDEBC"  /> 

<embed  src="button3.swf'  quality="high" 

pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?Pl_Prod_Ve 
rsion=ShockwaveFlash"  type="applicatioii/x-shockwave-flash"  width="100"  height="23" 
bgcolor="#DEDEBC"></embed> 

</object></td> 

<td  width="14%"  bgcolor="#DEDEBC"><object 

classid="clsid:D27CDB6E-AE6D-llcf-96B8-444553540000" 

codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#ver 
sion=5,0,0,0"  width="100"  height="23"> 

<param  name="movie"  value="button4.swf '  /> 

<param  name="quality"  value="high"  /> 

<param  name="bgcolor"  value="#DEDEBC"  /> 

<embed  src="button4.swf'  quality="high" 

pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?Pl_Prod_Ve 
rsion=ShockwaveFlash"  type="applicatioii/x-shockwave-flash"  width="100"  height="23" 
bgcolor="#DEDEBC"></embed> 

</object></td> 

<td  width="14%"  bgcolor="#DEDEBC"><object 

classid="clsid:D27CDB6E-AE6D-llcf-96B8-444553540000" 

codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#ver 
sion=5,0,0,0"  width="103"  height="24"> 

<param  name="movie"  value="button5.swf'  /> 
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<param  name="quality"  value="high"  /> 

<param  name="bgcolor"  value="#DEDEBC"  /> 

<embed  src="button5.swf'  quality="high" 

pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?Pl_Prod_Ve 
rsion=ShockwaveFlash"  type="application/x-shockwave-flash"  width="103"  height="24" 
bgcolor="#DEDEBC"></embed> 

</object></td> 

</tr> 

</table></td> 

</tr> 

<tr> 

<td><hr  />  <h3  align="center">  <span  class="stylel">User</span>  Master 

Form  </h3> 

<hr/> 

<form  name="frm_addUser"  id="frm_addUser"  method="get" 
action="User_Input_Form.asp"> 

<table  width="58%"  border="l"  align="  center"  cellpadding="3" 

cellspacing="0"> 

<tr> 

<td  width="56%"><strong>Add  New  User  </strong></td> 

<td  width="44%"><input  type="submit"  name="Submit"  value=" Submit" 

/></td> 

</tr> 

</table> 

</form> 

<form  name="frm_updateUser"  id="frm_updateUser"  method="get" 
action="Form_Update_User.asp"> 

<table  width="58%"  border="l"  align="  center"  cellpadding="3" 

cellspacing="0"> 

<tr> 

<td  width="56%"><strong>Update  User  Record  </strong></td> 

<td  width="44%"><select  name="userid"  id="userid"> 

<% 

While  (NOT  rs_user.EOF) 

%> 

<option 

value="<%=(rs_user.Fields.Item("userid").Value)%>"><%=(rs_user.Fields.Item("lastNa 

me").Value)%></option> 

<% 

rs_user.MoveNext() 

Wend 

If  (rs_user.CursorType  >  0)  Then 
rs_user.MoveF  irst 
Else 

rs_user.  Requery 
End  If 
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%> 

</select> 

<input  type="  submit"  name="Submit2"  value="  Submit"  /></td> 

</tr> 

</table> 

</form> 

<form  name="frm_deleteUser"  id="frm_deleteUser"  method="get" 
action="Form_Delete_User.asp"> 

<table  width="58%"  border="l"  align="  center"  eellpadding="3" 
cellspacing="0"> 

<tr> 

<td  width="56%"><strong>Delete  User  Record  </strong></td> 

<td  width="44%"><select  name="userid"  id="userid"> 

<% 

While  (NOT  rs_user.EOF) 

%> 

<option 

value="<%=(rs_user.Fields.Item("userid").Value)%>"><%=(rs_user.Fields.Item("lastNa 

me").Value)%></option> 

<% 

rs_user  .MoveNextO 
Wend 

If  (rs_user.CursorType  >  0)  Then 
rs_user.MoveF  irst 
Else 

rs_user.Requery 
End  If 

%> 

</seleet> 

<input  type="submit"  name=" Submits"  value=" Submit"  /></td> 

</tr> 

</table> 

</form>  <p  align="left">&nbsp;</p></td> 

</tr> 

<tr> 

<td>&nbsp;  </td> 

</tr> 

</table> 

<p>&nbsp;</p> 

<p>&nbsp;</p> 

</body> 

</html> 

<% 

rs_user.Close() 

Set  rs_user  =  Nothing 

%> 
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25.  Form_Subject_Master.asp 


<%@LANGUAGE=" VBSCRIPT"  CODEPAGE='T252"%> 

<!— #include  file="Connections/conn_DistanceLeaming.asp"  — > 

<% 

'  ***  Restrict  Access  To  Page:  Grant  or  deny  access  to  this  page 
MM_authorizedUsers="admin, professor" 

MM_authFailedURL="  login,  asp" 

MM_grantAccess=false 
If  Session("MM_Usemame")  <>  ""  Then 
If  (false  Or  CStr(Session("MM_UserAuthorization"))="")  Or  _ 

(InStr(l,MM_authorizedUsers,Session("MM_UserAuthorization"))>=l) 

Then 

MM_grantAccess  =  true 
End  If 
End  If 

If  Not  MM_grantAccess  Then 
MM_qsChar  =  "?" 

If  (InStr(l,MM_authFailedURL,"?")  >=  1)  Then  MM  qsChar  =  "&" 
MM_referrer  =  Request.  ServerVariables("URL") 

if  (Len(Request.QueryString())  >  0)  Then  MM_referrer  =  MM_referrer  &  "?"  & 
Request.QueryStringO 

MM_authFailedURL  =  MM_authFailedURL  &  MM_qsChar  &  "accessdenied=" 
&  Server.URLEncode(MM_referrer) 

Response.Redirect(MM_authFailedURL) 

End  If 

%> 

<% 

Dim  rs_subject _ MMColParam 

rssubject _ MMColParam  =  "1" 

If  (Request.QueryStringC'courseid")  <>  "")  Then 

rs_subject _ MMColParam  =  Request.QueryStringC'courseid") 

End  If 
%> 

<% 

Dim  rs_subject 

Dim  rs_subject_nuniRows 

Set  rs  subject  =  Server.CreateObject("ADODB.Recordset") 
rssubject.ActiveConnection  =  MMconnDistanceLeamingSTRING 
rs_subject. Source  =  "SELECT  *  FROM  Subject  WHERE  courseid  =  "  + 

Replace(rs_subject _ MMColParam,  """)  +  "  ORDER  BY  subjectName  ASC" 

rs_subject.CursorType  =  0 
rs_subject.CursorLocation  =  2 
rs_subject.LockType  =  1 
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rs_subj  ect.  Open() 

rs_subject_numRows  =  0 

%> 

<% 

Dim  Courses _ MMColParam 

Courses _ MMColParam  =  "1" 

If  (Request.QueryStringC'courseid")  <>  "")  Then 

Courses _ MMColParam  =  Request.QueryStringC'courseid") 

End  If 
%> 

<% 

Dim  Courses 

Dim  Courses_numRows 

Set  Courses  =  Server. CreateObject("ADODB. Recordset") 
Courses.ActiveConnection  =  MMconnDistanceLearningSTRING 
Courses. Source  =  "SELECT  courseid,  courseCode,  courseName  FROM  Course 
WHERE  courseid  =  "  +  RepIace(Courses_MMColParam,  """)  +  "  ORDER  BY 
courseCode  ASC" 

Courses. CursorType  =  0 
Courses. CursorLocation  =  2 
Courses. LockType  =  I 
Courses.  Open() 

CoursesnumRows  =  0 

%> 

<% 

Dim  searchMethod 

searchMethod  =  Request.QueryString("radiobutton") 

If  searchMethod  =  I  Then 
Response. Redirect("Keyword_Request.asp") 

End  If 

%> 

<!DOCTYPE  html  PUBLIC  "-//W3C//DTD  XHTML  I.O  TransitionaI//EN" 
"http://www.w3  .org/TR/xhtml  I/DTD/xhtml  I  -transitionaI.dtd"> 

<html  xmlns="http  ://www. w3  .org/ 1 999/xhtml"> 

<head> 

<title>Distance  Learning:  Subject  Master  Form</titIe> 

<meta  http-equiv="Content-Type"  content="text/htmI;  charset=iso-8859-I"  /> 
<link  href="DLStyIesheet.css"  rel="stylesheet"  type="text/css"  /> 

<style  type="text/css"> 

<!- 
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.stylel  {color:  #CC3300} 

.style3  {color:  #CC3300;  font-weight:  bold; } 

.style4  {color:  #336600} 

— > 

</style> 

</head> 

<body> 

<table  width="95%"  height="214"  border="0"  align="center"  cellpadding="3" 
cellspacing="0"> 

<tr> 

<td  height="109"><table  width="100%"  border="0"  align="left" 
cellpadding="3"  cellspacing="0"  bgcolor="#DEDEBC"> 

<tr> 

<td  width="88%"  align="  center"  valign="middle" 

bgcolor="#DEDEBC"><img  src="Images/nps_banner.gif'  width="447"  height="97"  /> 

</td> 

</tr> 

</table></td> 

</tr> 

<tr> 

<td  height="50"><table  width="72%"  border="0"  align="center" 
cellpadding="3"  cellspacing="0"  bordercolor="#F6F6F3"> 

<tr> 

<td  width="14%"  bgcolor="#DEDEBC"><object 

classid="clsid:D27CDB6E-AE6D-llcf-96B8-444553540000" 

codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#ver 
sion=5, 0,0,0"  width="103"  height="24"> 

<param  name="movie"  value="button2.swf'  /> 

<param  name="quality"  value="high"  /> 

<param  name="bgcolor"  value="#DEDEBC"  /> 

<embed  src="button2.swf'  quality="high" 

pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?Pl_Prod_Ve 
rsion=ShockwaveFlash"  type="application/x-shockwave-flash"  width="103"  height="24" 
bgcolor="#DEDEBC"></embed> 

</object></td> 

<td  width="14%"  bgcolor="#DEDEBC"><object 

classid="clsid:D27CDB6E-AE6D-llcf-96B8-444553540000" 

codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#ver 
sion=5,0,0,0"  name=" Search"  width="100"  height="23"  id="Search"> 

<param  name="movie"  value="buttonl.swf'  /> 

<param  name="quality"  value="high"  /> 

<param  name="bgcolor"  value="#DEDEBC"  /> 

<embed  src="buttonl.swf'  width="100"  height="23"  quality="high" 
pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?Pl_Prod_Ve 
rsion=ShockwaveFlash"  type="application/x-shockwave-flash"  bgcolor="#DEDEBC" 
name="  Search"></embed> 
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</object></td> 

<td  width="14%"  bgcolor="#DEDEBC"><object 

classid="clsid:D27CDB6E-AE6D-llcf-96B8-444553540000" 

codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#ver 
sion=5, 0,0,0"  width="100"  height="23"> 

<param  name="movie"  value="button3.swf'  /> 

<param  name="quality"  value="high"  /> 

<param  name="bgcolor"  value="#DEDEBC"  /> 

<embed  src="button3.swf'  quality="high" 

pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?Pl_Prod_Ve 
rsion=ShockwaveFlash"  type="application/x-shockwave-flash"  width="100"  height="23" 
bgcolor="#DEDEBC"></embed> 

</object></td> 

<td  width="14%"  bgcolor="#DEDEBC"><object 

classid="clsid:D27CDB6E-AE6D-llcf-96B8-444553540000" 

codebase="htq)://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#ver 
sion=5,0,0,0"  width="100"  height="23"> 

<param  name="movie"  value="button4.swf'  /> 

<param  name="quality"  value="high"  /> 

<param  name="bgcolor"  value="#DEDEBC"  /> 

<embed  src="button4.swf'  quality="high" 

pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?Pl_Prod_Ve 
rsion=ShockwaveFlash"  type="application/x-shockwave-flash"  width="100"  height="23" 
bgcolor="#DEDEBC"></embed> 

</object></td> 

<td  width="14%"  bgcolor="#DEDEBC"><object 

classid="clsid:D27CDB6E-AE6D-llcf-96B8-444553540000" 

codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#ver 
sion=5,0,0,0"  width="103"  height="24"> 

<param  name="movie"  value="button5.swf'  /> 

<param  name="quality"  value="high"  /> 

<param  name="bgcolor"  value="#DEDEBC"  /> 

<embed  src="button5.swf'  quality="high" 

pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?Pl_Prod_Ve 
rsion=ShockwaveFlash"  type="application/x-shockwave-flash"  width="103"  height="24" 
bgcolor="#DEDEBC"></embed> 

</object></td> 

</tr> 

</table></td> 

</tr> 

<tr> 

<td><hr  />  <h3  align="center"><span  class="style4">Subject</span>  Master 

Form  for  Course:<span 

class="stylel"><%=(Courses.Fields.Item("courseCode").Value)%></span>  </h3> 

<hr  />  </td> 

</tr> 
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<tr> 

<td><form  name="frmSubject"  id="frmSubject"  method="get" 
action="Form_Topic_Master.asp"> 

<div  align="center"><br  /> 

<table  width="95%"  border="l"  cellspacing="0"  cellpadding="3"> 

<tr> 

<td  width="44%"><div  align="left"><strong>Existing  Subject  Content 
</strong><br  />(Insert,  Modify,  Delete  content  ONLY)</div></td> 

<td  width="56%"><div  align="left"> 

<select  nanie="subjectid"  id="subjectid"> 

<% 

While  (NOT  rs  subject.EOF) 

%> 

<option 

value="<%=(rs_subject.Fields.Item("subjectid").Value)%>"><%=(rs_subject.Fields.Item 
("  subj  ectN  ame") .  Value)%></ option> 

<% 

rs  subiect.MoveNextO 
Wend 

If  (rs_subject.CursorType  >  0)  Then 
rs_subject.MoveFirst 
Else 

rs  sub]  ect. Requery 
End  If 

%> 

</select> 

<input  type=" submit"  name="Submit"  value="Continue"  /> 

</div></td> 

</tr> 

</table> 

</div> 

</form> 

<form  name="frm_addSubject"  id="frm_addSubject"  method="get" 
action="Form_Add_Subj  ect.  asp"> 

<table  width="95%"  border='T"  align="  center"  cellpadding="3" 

cellspacing="0"> 

<tr> 

<td  width="44%"><strong>Insert  New  Subject  Record 
</strong><br  />(Subject  Name,  Description)<span 

class="style3"><%=(Courses.Fields.Item("courseCode").Value)%></span>  </td> 

<td  width="56%"><input  name="courseid"  type="hidden"  id="courseid" 
value="<%=  Request.QueryStringC'courseid")  %>"  />  &nbsp; 

<input  type="submit"  name=" Submits"  value='Tnsert"  /></td> 

</tr> 

</table> 

</form> 
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<form  name="frm_subject"  id="frm_subject"  method="get" 
action="Form_Update_Subject.asp"> 

<table  width="95%"  border="l"  align="  center"  eellpadding="3" 
cellspacing="0"> 

<tr> 

<td  width="44%"><strong>Update  Existing  Subjeet  Record 
</strong><br  /> 

(Subject  Name,  Description)</td> 

<td  width="56%"><seleet  name="subjectid"  id="subjeetid"> 

<% 

While  (NOT  rs  subject.EOF) 

%> 

<option 

value="<%=(rs_subjeet.Fields.Item("subjectid").Value)%>"><%=(rs_subjeet.Fields.Item 
("  subj  eetN  ame") .  Value)%></ option> 

<% 

rs  subieet.MoveNextO 
Wend 

If  (rs_subject.CursorType  >  0)  Then 
rs_subjeet.MoveFirst 
Else 

rs_subj  eet. Requery 
End  If 

%> 

</seleet> 

<input  type="submit"  name="Submit2"  value="Update"  /> 

<input  name="courseid"  type="hidden"  id="eourseid"  value="<%= 
Request.QueryStringC'eourseid")  %>"  /></td> 

</tr> 

</table> 

</form> 

<form  name="frm_delete"  id="frm_delete"  method="get" 

action="Form_Delete_Subjeet.asp"> 

<table  width="95%"  border='T"  align="eenter"  eellpadding="3" 
cellspacing="0"> 

<tr> 

<td  width="44%"><strong>Delete  Existing  Subjeet  Record 
</strong><br  /> 

(Subject  Name,  Deseription  &amp;  Code)</td> 

<td  width="56%"><seleet  name="subjectid"  id="subjeetid"> 

<% 

While  (NOT  rs  subject.EOF) 

%> 

<option 

value="<%=(rs_subject.Fields.Item("subjectid").Value)%>"><%=(rs_subject.Fields.Item 
("  subj  ectN  ame") .  Value)%></ option> 
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<% 

rs  subiect.MoveNextO 
Wend 

If  (rs_subject.CursorType  >  0)  Then 
rs_subject.MoveFirst 
Else 

rs_subj  ect. Requery 
End  If 

%> 

</select> 

<input  type=" submit"  name=" Submits"  value="Delete"  /> 

<input  name="courseid"  type="hidden"  id="courseid"  value="<% 
Request.QueryStringC'courseid")  %>"  /></td></tr> 

</table> 

</form> 

<p>&nbsp;</p> 

<p>&nbsp;</p> 

<p>&nbsp;</p> 

<p>&nbsp;</p></td> 

</tr> 

</table> 

<p>&nbsp;</p> 

<p>&nbsp;</p> 

<^ody> 

</html> 

<% 

rs_subject.Close() 

Set  rs_subject  =  Nothing 

%> 

<% 

Courses. Close() 

Set  Courses  =  Nothing 

%> 
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26.  Form_Subsection_Master.asp 


<%@LANGUAGE=" VBSCRIPT"  CODEPAGE='T252"%> 

<!— #include  file="Connections/conn_DistanceLeaming.asp"  — > 

<% 

'  ***  Restrict  Access  To  Page:  Grant  or  deny  access  to  this  page 
MM_authorizedUsers="admin, professor" 

MM_authFailedURL="  login,  asp" 

MM_grantAccess=false 
If  Session("MM_Usemame")  <>  ""  Then 
If  (false  Or  CStr(Session("MM_UserAuthorization"))="")  Or  _ 

(InStr(l,MM_authorizedUsers,Session("MM_UserAuthorization"))>=l) 

Then 

MM_grantAccess  =  true 
End  If 
End  If 

If  Not  MM_grantAccess  Then 
MM_qsChar  =  "?" 

If  (InStr(l,MM_authFailedURL,"?")  >=  1)  Then  MM  qsChar  =  "&" 
MM_referrer  =  Request.  ServerVariables("URL") 

if  (Len(Request.QueryString())  >  0)  Then  MM_referrer  =  MM_referrer  &  "?"  & 
Request.QueryStringO 

MM_authFailedURL  =  MM_authFailedURL  &  MM_qsChar  &  "accessdenied=" 
&  Server.URLEncode(MM_referrer) 

Response.Redirect(MM_authFailedURL) 

End  If 

%> 

<% 

Dim  rs_topicSubsection _ MMColParam 

rstopic  Subsection _ MMColParam  =  "4" 

If  (Request.QueryStringC'topicid")  <>  "")  Then 

rs_topicSubsection _ MMColParam  =  Request.QueryStringC'topicid") 

End  If 
%> 

<% 

Dim  rs_topicSubsection 

Dim  rs_topicSubsection_numRows 

Set  rstopicSubsection  =  Server.CreateObject("ADODB.Recordset") 
rs_topicSubsection.ActiveConnection  =  MM_conn_DistanceLeaming_STRING 
rs_topicSubsection.Source  =  "SELECT  Subsection.subsectionName, 
Subsection,  subsectionid  FROM  Subsection, Topic_Has_Subsections  WHERE 
Subsection.subsectionid=Topic_Has_Subsections.subsectionid  AND 

Topic  Has  Subsections.topicid  =  "  +  Replace(rs_topicSubsection _ MMColParam, 

""")  +  "  ORDER  BY  Subsection.subsectionName  ASC" 


236 


rs_topicSubsection.CursorType  =  0 
rs_topicSubsection.CursorLocation  =  2 
rs_topicSubsection.LockType  =  1 
rs_topicSubsection.Open() 

rs_topicSubsection_numRows  =  0 

%> 

<% 

Dim  rs_topic _ MMColParam 

rs_topic _ MMColParam  =  "  1" 

If  (Request.QueryStringC'topicid")  <>  "")  Then 

rstopic _ MMColParam  =  Request.QueryStringC'topicid") 

End  If 
%> 

<% 

Dim  rs_topic 

Dim  rs_topic_numRows 

Set  rs  topic  =  Server.CreateObject("ADODB.Recordset") 

rs_topic.ActiveConnection  =  MMconnDistanceLeamingSTRING 

rs  topic. Source  =  "SELECT  *  FROM  Topic  WHERE  topicid  =  "  + 

Replace(rs_topic _ MMColParam,  """)  +  "" 

rs_topic.CursorType  =  0 
rs_topic.CursorLocation  =  2 
rs_topic.LockType  =  1 
rs_topic.Open() 

rs_topic_numRows  =  0 

%> 

<!DOCTYPE  html  PUBLIC  "-//W3C//DTD  XHTML  I.O  TransitionaI//EN" 
"http://www.w3  .org/TR/xhtml  I /DTD/xhtml  I  -transitional.dtd"> 

<html  xmlns="http  ://www. w3  .org/ 1 999/xhtml"> 

<head> 

<title>Distance  Learning:  Form  Subsection  Master</title> 

<meta  http-equiv="Content-Type"  content="text/html;  charset=iso-8859-I"  /> 
<link  href="DLStyIesheet.css"  rel="stylesheet"  type="text/css"  /> 

<style  type="text/css"> 

<!- 

.style  1  {color:  #CC3300} 

.style2  {color:  #339900} 

— > 

</style> 

</head> 

<body> 

<table  width="95%"  height="214"  border="0"  align="center"  cellpadding="3" 
cellspacing="0"> 
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border="0"  align="left' 


<tr> 

<td  height="109"><table  width="100%" 
cellpadding="3"  cellspacing="0"  bgcolor="#DEDEBC"> 

<tr> 

<td  width="88%"  align="  center"  valign="middle" 

bgcolor="#DEDEBC"><img  sre="Images/nps_banner.gif'  width="447"  height="97"  /> 

</td> 

</tr> 

</table></td> 

</tr> 

<tr> 

<td  height="50"><table  width="72%"  border="0"  align="eenter" 
cellpadding="3"  eellspaeing="0"  bordereolor="#F6F6F3"> 

<tr> 

<td  width="14%"  bgeolor="#DEDEBC"><object 

classid="elsid:D27CDB6E-AE6D-llcf-96B8-444553540000" 

codebase="http://download.macromedia.eom/pub/shoekwave/eabs/flash/swflash.eab#ver 
sion=5, 0,0,0"  width="103"  height="24"> 

<param  name="movie"  value="button2.swf'  /> 

<param  name="quality"  value="high"  /> 

<param  name="bgcolor"  value="#DEDEBC"  /> 

<embed  src="button2.swf'  quality="high" 

pluginspage="http://www.maeromedia.coin/shockwave/download/index.cgi?Pl_Prod_Ve 
rsion=ShockwaveFlash"  type="application/x-shockwave-flash"  width="103"  height="24" 
bgcolor="#DEDEBC"></embed> 

</object></td> 

<td  width="14%"  bgeolor="#DEDEBC"><object 

classid="elsid:D27CDB6E-AE6D-llcf-96B8-444553540000" 

codebase="http://download.macromedia.eoin/pub/shoekwave/eabs/flash/swflash.eab#ver 
sion=5,0,0,0"  name="Seareh"  width="100"  height="23"  id="Seareh"> 

<param  name="movie"  value="buttonLswf'  /> 

<param  name="quality"  value="high"  /> 

<param  name="bgcolor"  value="#DEDEBC"  /> 

<embed  src="buttonLswf'  width="100"  height="23"  quality="high" 
pluginspage="http://www.maeromedia.coin/shockwave/download/index.cgi?Pl_Prod_Ve 
rsion=ShockwaveFlash"  type="application/x-shockwave-flash"  bgcolor="#DEDEBC" 
name="  Seareh"></embed> 

</object></td> 

<td  width="14%"  bgeolor="#DEDEBC"><object 

classid="elsid:D27CDB6E-AE6D-llcf-96B8-444553540000" 

codebase="http://download.macromedia.eoin/pub/shoekwave/eabs/flash/swflash.eab#ver 
sion=5,0,0,0"  width="100"  height="23"> 

<param  name="movie"  value="button3.swf'  /> 

<param  name="quality"  value="high"  /> 

<param  name="bgcolor"  value="#DEDEBC"  /> 
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<embed  src="button3.swf'  quality="high" 

pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?Pl_Prod_Ve 
rsion=ShockwaveFlash"  type="application/x-shockwave-flash"  width="100"  height="23" 
bgcolor="#DEDEBC"></embed> 

</object></td> 

<td  width="14%"  bgcolor="#DEDEBC"><object 

classid="clsid:D27CDB6E-AE6D-llcf-96B8-444553540000" 

codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#ver 
sion=5, 0,0,0"  width="100"  height="23"> 

<param  name="movie"  value="button4.swf'  /> 

<param  name="quality"  value="high"  /> 

<param  name="bgcolor"  value="#DEDEBC"  /> 

<embed  src="button4.swf'  quality="high" 

pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?Pl_Prod_Ve 
rsion=ShockwaveFlash"  type="application/x-shockwave-flash"  width="100"  height="23" 
bgcolor="#DEDEBC"></embed> 

</object></td> 

<td  width="14%"  bgcolor="#DEDEBC"><object 

classid="clsid:D27CDB6E-AE6D-llcf-96B8-444553540000" 

codebase="htq)://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#ver 
sion=5,0,0,0"  width="103"  height="24"> 

<param  name="movie"  value="button5.swf'  /> 

<param  name="quality"  value="high"  /> 

<param  name="bgcolor"  value="#DEDEBC"  /> 

<embed  src="button5.swf'  quality="high" 

pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?Pl_Prod_Ve 
rsion=ShockwaveFlash"  type="application/x-shockwave-flash"  width="103"  height="24" 
bgcolor="#DEDEBC"></embed> 

</object></td> 

</tr> 

</table></td> 

</tr> 

<tr> 

<td><hr  />  <h3  align="center">  <span  class="style2">Subsection</span> 

Master  Form  for  Topic:<span 

class="stylel"><%=(rs_topic.Fields.Item("topicName").Value)%></span></h3> 

<hr  />  </td> 

</tr> 

<tr> 

<td> 

<form  action="Form_Image_Master.asp"  method="get" 

enctype="multipart/form-data"  name="frmSubsection"  id="frmSubsection"> 

<div  align="center"> 

<table  width="95%"  border="l"  align="center"  cellpadding="3" 
cellspacing="0"> 

<tr> 
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<td  width="45%"><div  align="left"><strong>Existing  Subsection 
Images</strong><br  /> 

(Insert,  Modify,  Delete  Images  ONLY)  </div></td> 

<td  width="55%"><div  align="left"> 

<select  name="subsectionid"  id="select"> 

<% 

While  (NOT  rs  topicSubsection.EOF) 

%> 

<option 

value="<%=(rs_topicSubsection.Fields.Item("subsectionid").Value)%>"><%=(rs_topicS 

ubsection.Fields.Item("subsectionName").Value)%></option> 

<% 

rs_topicSubsection.MoveNext() 

Wend 

If  (rs  topicSubsection.CursorType  >  0)  Then 
rs_topicSubsection.MoveFirst 
Else 

rs_topicSubsection.Requery 
End  If 

%> 

</select> 

<input  type="submit"  name="Submit"  value="Continue"  /> 

</div></td> 

</tr> 

</table> 

</div> 

</form> 

<form  name="frm_insert"  id="frm_insert"  method="get" 

action="Form_Input_Subsection.asp"> 

<table  width="95%"  border="l"  align="  center"  cellpadding="3" 

cellspacing="0"> 

<tr> 

<td  width="45%"><strong>Insert</strong>  New  Subsection  </td> 

<td  width="55%"><input  type="submit"  name="Submit2"  value=" Insert" 

/> 

<input  name="topicid"  type="hidden"  id="topicid"  value="<%= 
Request.QueryStringC'topicid")  %>"  /></td> 

</tr> 

</table> 

</form> 

<form  name="frm_update"  id="frm_update"  method="get" 
action="Test_Form_Update_Subsection.asp"> 

<table  width="95%"  border='T"  align="  center"  cellpadding="3" 

cellspacing="0"> 

<tr> 

<td  width="45%"><strong>Update</strong>  Existing  Subsection  </td> 
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<td  width="55%"><select  name="subsectionid"  id="subsectionid"> 

<% 

While  (NOT  rs  topicSubsection.EOF) 

%> 

<option 

value="<%=(rs_topicSubsection.Fields.Item("subsectionid").Value)%>"><%=(rs_topicS 

ubsection.Fields.Item("subsectionName").Value)%></option> 

<% 

rs_topicSubsection.MoveNext() 

Wend 

If  (rs  topicSubsection.CursorType  >  0)  Then 
rs_topicSubsection.MoveFirst 
Else 

rs_topicSubsection.Requery 
End  If 

%> 

</select> 

<input  type=" submit"  name=" Submits "  value="Update"  /> 

<input  name="topicid"  type="hidden"  id="topicid"  value="<%= 
Request.QueryStringC'topicid")  %>"  /></td> 

</tr> 

</table> 

</form> 

<form  name="frm_delete"  id="frm_delete"  method="get" 

action="Form_Delete_Subsection.asp"> 

<table  width="95%"  border="l"  align="  center"  cellpadding="3" 
cellspacing="0"> 

<tr> 

<td  width="45%"><strong>Delete</strong>  Existing  Subsection  </td> 

<td  width="55%"><select  name="subsectionid"  id="subsectionid"> 

<% 

While  (NOT  rs  topicSubsection.EOF) 

%> 

<option 

value="<%=(rs_topicSubsection.Fields.Item("subsectionid").Value)%>"><%=(rs_topicS 

ubsection.Fields.Item("subsectionName").Value)%></option> 

<% 

rs_topicSubsection.MoveNext() 

Wend 

If  (rs  topicSubsection.CursorType  >  0)  Then 
rs_topicSubsection.MoveFirst 
Else 

rs_topicSubsection.Requery 
End  If 

%> 

</select> 
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<input  type=" submit"  name="Submit4"  value="delete"  /> 

<input  name="topicid"  type="hidden"  id="topicid"  value="<% 
Request.QueryStringC'topicid")  %>"  /></td> 

</tr> 

</table> 

</form>  <p>&nbsp;</p></td></tr> 

</table> 

<p>&nbsp;</p> 

<p>&nbsp;</p> 

</body> 

</html> 

<% 

rs_topicSubsection.Close() 

Set  rs_topicSubsection  =  Nothing 

%> 

<% 

rs_topic.Close() 

Set  rs_topic  =  Nothing 

%> 
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27.  Form_Topic_Master.asp 


<%@LANGUAGE=" VBSCRIPT"  CODEPAGE='T252"%> 

<!— #include  file="Connections/conn_DistanceLeaming.asp"  — > 

<% 

'  ***  Restrict  Access  To  Page:  Grant  or  deny  access  to  this  page 
MM_authorizedUsers="admin, professor" 

MM_authFailedURL="  login,  asp" 

MM_grantAccess=false 
If  Session("MM_Usemame")  <>  ""  Then 
If  (false  Or  CStr(Session("MM_UserAuthorization"))="")  Or  _ 

(InStr(l,MM_authorizedUsers,Session("MM_UserAuthorization"))>=l) 

Then 

MM_grantAccess  =  true 
End  If 
End  If 

If  Not  MM_grantAccess  Then 
MM_qsChar  =  "?" 

If  (InStr(l,MM_authFailedURL,"?")  >=  1)  Then  MM  qsChar  =  "&" 
MM_referrer  =  Request.  ServerVariables("URL") 

if  (Len(Request.QueryString())  >  0)  Then  MM_referrer  =  MM_referrer  &  "?"  & 
Request.QueryStringO 

MM_authFailedURL  =  MM_authFailedURL  &  MM_qsChar  &  "accessdenied=" 
&  Server.URLEncode(MM_referrer) 

Response.Redirect(MM_authFailedURL) 

End  If 

%> 

<% 

Dim  rs_topic _ MMColParam 

rstopic _ MMColParam  =  "  1 " 

If  (Request.QueryStringC'subjectid")  <>  "")  Then 

rs_topic _ MMColParam  =  Request.QueryStringC'subjectid") 

End  If 
%> 

<% 

Dim  rs_topic 

Dim  rs_topic_nuniRows 

Set  rs_topic  =  Server.CreateObject("ADODB.Recordset") 
rs_topic.ActiveConnection  =  MMconnDistanceLeamingSTRING 
rs  topic. Source  =  "SELECT  *  FROM  Topic  WHERE  subjectid  =  "  + 
Replace(rs_topic_MMColParam,  """)  +  "  ORDER  BY  topicName  ASC" 
rstopic.CursorType  =  0 
rs_topic.CursorLocation  =  2 
rs_topic.LockType  =  1 
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rs_topic.Open() 

rs_topic_numRows  =  0 

%> 

<% 

Dim  rs_subject _ MMColParam 

rs_subject _ MMColParam  =  "1" 

If  (Request.QueryStringC'subjectid")  <>  "")  Then 

rs_subject _ MMColParam  =  Request.QueryStringC'subjectid") 

End  If 
%> 

<% 

Dim  rssubject 

Dim  rs_subject_numRows 

Set  rs  subject  =  Server.CreateObject("ADODB.Recordset") 
rs_subject.ActiveConnection  =  MM_conn_DistanceLeaming_STRING 
rs  subject. Source  =  "SELECT  *  FROM  Subject  WHERE  subjectid  =  "  + 

Replace(rs_subject _ MMColParam, """)  +  "" 

rs_subject.CursorType  =  0 
rs_subject.CursorLocation  =  2 
rs_subject.LockType  =  I 
rs_subj  ect.  Open() 

rs_subject_numRows  =  0 

%> 

<!DOCTYPE  html  PUBLIC  "-//W3C//DTD  XHTML  1.0  Transitional//EN" 
"http://www.w3  .org/TR/xhtml  1/DTD/xhtml  1  -transitional.dtd"> 

<html  xmlns="http://www.w3.org/1999/xhtml"> 

<head> 

<title>Distance  Learning:  Form  Topic  Master</title> 

<meta  http-equiv="Content-Type"  content="text/html;  charset=iso-8859-l"  /> 
<link  href="DLStylesheet.css"  rel="stylesheet"  type="text/css"  /> 

<style  type="text/css"> 

<!- 
a:  link  { 

color:  #CC3300; 

} 

a:visited  { 

color:  #CC3399; 

} 

a:hover  { 

color:  #000066; 

} 

a:  active  { 

color:  #339900; 
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} 

.style  1  {color:  #CC3300} 

.style3  {color:  #CC3300;  font-weight:  bold; } 

.Styles  {color:  #336600} 

— > 

</style></head> 

<body> 

<table  width="95%"  height="214"  border="0"  align="center"  cellpadding="3" 
cellspacing="0"> 

<tr> 

<td  height="109"><table  width="100%"  border="0"  align="left" 
cellpadding="3"  cellspacing="0"  bgcolor="#DEDEBC"> 

<tr> 

<td  width="88%"  align="  center"  valign="middle" 

bgcolor="#DEDEBC"><img  src="Images/nps_banner.gif'  width="447"  height="97"  /> 

</td> 

</tr> 

</table></td> 

</tr> 

<tr> 

<td  height="50"><table  width="72%"  border="0"  align="center" 
cellpadding="3"  cellspacing="0"  bordercolor="#F6F6F3"> 

<tr> 

<td  width="14%"  bgcolor="#DEDEBC"><object 

classid="clsid:D27CDB6E-AE6D-llcf-96B8-444553540000" 

codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#ver 
sion=5, 0,0,0"  width="103"  height="24"> 

<param  name="movie"  value="button2.swf'  /> 

<param  name="quality"  value="high"  /> 

<param  name="bgcolor"  value="#DEDEBC"  /> 

<embed  src="button2.swf'  quality="high" 

pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?Pl_Prod_Ve 
rsion=ShockwaveFlash"  type="application/x-shockwave-flash"  width="103"  height="24" 
bgcolor="#DEDEBC"></embed> 

</object></td> 

<td  width="14%"  bgcolor="#DEDEBC"><object 

classid="clsid:D27CDB6E-AE6D-llcf-96B8-444553540000" 

codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#ver 
sion=5,0,0,0"  name=" Search"  width="100"  height="23"  id="Search"> 

<param  name="movie"  value="buttonl.swf'  /> 

<param  name="quality"  value="high"  /> 

<param  name="bgcolor"  value="#DEDEBC"  /> 

<embed  src="buttonl.swf'  width="100"  height="23"  quality="high" 
pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?Pl_Prod_Ve 
rsion=ShockwaveFlash"  type="application/x-shockwave-flash"  bgcolor="#DEDEBC" 
name="  Search"></embed> 
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</object></td> 

<td  width="14%"  bgcolor="#DEDEBC"><object 

classid="clsid:D27CDB6E-AE6D-llcf-96B8-444553540000" 

codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#ver 
sion=5, 0,0,0"  width="100"  height="23"> 

<param  name="movie"  value="button3.swf'  /> 

<param  name="quality"  value="high"  /> 

<param  name="bgcolor"  value="#DEDEBC"  /> 

<embed  src="button3.swf'  quality="high" 

pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?Pl_Prod_Ve 
rsion=ShockwaveFlash"  type="application/x-shockwave-flash"  width="100"  height="23" 
bgcolor="#DEDEBC"></embed> 

</object></td> 

<td  width="14%"  bgcolor="#DEDEBC"><object 

classid="clsid:D27CDB6E-AE6D-llcf-96B8-444553540000" 

codebase="htq)://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#ver 
sion=5,0,0,0"  width="100"  height="23"> 

<param  name="movie"  value="button4.swf'  /> 

<param  name="quality"  value="high"  /> 

<param  name="bgcolor"  value="#DEDEBC"  /> 

<embed  src="button4.swf'  quality="high" 

pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?Pl_Prod_Ve 
rsion=ShockwaveFlash"  type="application/x-shockwave-flash"  width="100"  height="23" 
bgcolor="#DEDEBC"></embed> 

</object></td> 

<td  width="14%"  bgcolor="#DEDEBC"><object 

classid="clsid:D27CDB6E-AE6D-llcf-96B8-444553540000" 

codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#ver 
sion=5,0,0,0"  width="103"  height="24"> 

<param  name="movie"  value="button5.swf'  /> 

<param  name="quality"  value="high"  /> 

<param  name="bgcolor"  value="#DEDEBC"  /> 

<embed  src="button5.swf'  quality="high" 

pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?Pl_Prod_Ve 
rsion=ShockwaveFlash"  type="application/x-shockwave-flash"  width="103"  height="24" 
bgcolor="#DEDEBC"></embed> 

</object></td> 

</tr> 

</table></td> 

</tr> 

<tr> 

<td><hr  />  <h3  align="center">  <span  class="style5">Topic</span>  Master 

Form  for  Subject:  <span 

class="stylel"><%=(rs_subject.Fields.Item("subjectName").Value)%></span></h3> 

<hr/> 
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<form  name="frm_continue"  id="frm_continue"  method="get" 
action="Form_Subsection_Master.asp"> 

<table  width="95%"  border="l"  align="  center"  eellpadding="3" 
cellspacing="0"> 

<tr> 

<td  width="45%"><strong>Existing  Topie  Content 
</strong><br  />(Insert,  Modify,  Delete  content  ONLY)</td> 

<td  width="55%"><select  name="topieid"  id="topieid"> 

<% 

While  (NOT  rs  topie.EOF) 

%> 

<option 

value="<%=(rs_topie.Fields.Item("topicid").Value)%>"><%=(rs_topie.Fields.Item("topi 
cName") .  Value)%></option> 

<% 

r  s_topic .  Mo  veNextO 
Wend 

If  (rs_topic.CursorType  >  0)  Then 
rs_topic.MoveFirst 
Else 

rs_topie.Requery 
End  If 

%> 

</seleet> 

<input  type=" submit"  name="Submit"  value="Continue"  /></td> 

</tr> 

</table> 

</form> 

<form  name="Frm_add"  id="Frm_add"  method="get" 

action="Form_Add_Topie.asp"> 

<table  width="95%"  border='T"  align="eenter"  eellpadding="3" 
cellspacing="0"> 

<tr> 

<td  width="45%"><strong>Insert  New  Topie  Reeord 
</strong><br  />(Topic  Name,  Description)<span 

class="style3"><%=(rs_subjeet.Fields.Item("subjectName").Value)%></span></td> 

<td  width="55%"><input  type="submit"  name="Submit2"  value=" Insert" 

/> 

<input  name="subjeetid"  type="hidden"  id="subjectid"  value="<%= 
Request.QueryStringC'subjeetid")  %>"  /></td> 

</tr> 

</table> 

</form> 

<form  name="frm_update"  id="frm_update"  method="get" 
action="  Form_Update_Topie .  asp"> 
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<table  width="95%"  border="l"  align="  center"  eellpadding="3" 
cellspacing="0"> 

<tr> 

<td  width="45%"><strong>Update  Existing  Topie  Reeord 
</strong><br  />(Topie  Name,  Deseription)  </td> 

<td  width="55%"><select  name="topieid"  id="topieid"> 

<% 

While  (NOT  rs  topie.EOF) 

%> 

<option 

value="<%=(rs_topie.Fields.Item("topicid").Value)%>"><%=(rs_topie.Fields.Item("topi 
cName") .  Value)%></option> 

<% 

r  s_topic .  Mo  veNextO 
Wend 

If  (rs_topic.CursorType  >  0)  Then 
rs_topic.MoveFirst 
Else 

rs_topie.Requery 
End  If 

%> 

</seleet> 

<input  type="submit"  name=" Submits "  value="Update"  /> 

<input  name="subjeetid"  type="hidden"  id="subjectid"  value="<%= 
Request.QueryStringC'subjeetid")  %>"  /></td> 

</tr> 

</table> 

</form> 

<form  name="frm_delete"  id="frm_delete"  method="get" 

action="Form_Delete_Topic.asp"> 

<table  width="95%"  border='T"  align="eenter"  eellpadding="3" 
cellspacing="0"> 

<tr> 

<td  width="45%"><strong>Delete  Existing  Topie  Reeord 
</strong><br  />  (Topic  Name,  Description)  </td> 

<td  width="55%"><select  name="topicid"  id="topicid"> 

<% 

While  (NOT  rsJopie.EOF) 

%> 

<option 

value="<%=(rs_topie.Fields.Item("topicid").Value)%>"><%=(rs_topie.Fields.Item("topi 
cN  ame" )  .V  alue)%></ option> 

<% 

rs_topic.MoveNext() 

Wend 

If  (rs  topic.CursorType  >  0)  Then 
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rs_topic.MoveFirst 

Else 

rs_topic.Requery 
End  If 

%> 

</select> 

<input  type="submit"  name="Submit4"  value="Delete"  /> 

<input  name="subjectid"  type="hidden"  id="subjectid"  value="<% 
Request.QueryStringC'subjectid")  %>"  /></td> 

</tr> 

</table> 

</form> 

<p>&nbsp;</p>  <p>&nbsp;</p> 

<p>&nbsp;</p>  <p  align="left">&nbsp;</p></td> 

</tr> 

<tr> 

<td>&nbsp;  </td> 

</tr> 

</table> 

<p>&nbsp;</p> 

<p>&nbsp;</p> 

</body> 

</html> 

<% 

rs_topic.Close() 

Set  rs_topic  =  Nothing 

%> 

<% 

rs_subject.Close() 

Set  rs_subject  =  Nothing 

%> 
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28.  Form_Update_Category.asp 


<%@LANGUAGE=" VBSCRIPT"  CODEPAGE='T252"%> 

<!— #include  file="Connections/conn_DistanceLeaming.asp"  — > 

<% 

'  ***  Restrict  Access  To  Page:  Grant  or  deny  access  to  this  page 
MM_authorizedUsers="  admin" 

MM_authFailedURL="  login,  asp" 

MM_grantAccess=false 
If  Session("MM_Usemame")  <>  ""  Then 
If  (false  Or  CStr(Session("MM_UserAuthorization"))="")  Or  _ 

(InStr(l,MM_authorizedUsers,Session("MM_UserAuthorization"))>=l) 

Then 

MM_grantAccess  =  true 
End  If 
End  If 

If  Not  MM_grantAccess  Then 
MM_qsChar  =  "?" 

If  (InStr(l,MM_authFailedURL,"?")  >=  1)  Then  MM_qsChar  =  "&" 
MM_referrer  =  Request.  ServerVariables("URL") 

if  (Len(Request. Query StringO)  >  0)  Then  MM_referrer  =  MM_referrer  &  "?"  & 
Request.QueryStringO 

MM_authFailedURL  =  MM_authFailedURL  &  MM_qsChar  &  "accessdenied=" 
&  Server.URLEncode(MM_referrer) 

Response.Redirect(MM_authFailedURL) 

End  If 

%> 

<% 

'  ***  Edit  Operations:  declare  variables 

Dim  MMeditAction 
Dim  MM_abortEdit 
Dim  MM_editQuery 
Dim  MM_editCmd 

Dim  MMeditConnection 
Dim  MMeditTable 
Dim  MMeditRedirectUrl 
Dim  MMeditColumn 
Dim  MM_recordId 

Dim  MM_fieldsStr 
Dim  MM  columnsStr 
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Dim  MMfields 
Dim  MMcolumns 
Dim  MMtypeArray 
Dim  MMformVal 
Dim  MMdelim 
Dim  MM_altVal 
Dim  MM_emptyVal 
Dim  MM_i 

MM_editAction  =  CStr(Request.ServerVariables("SCRIPT_NAME")) 

If  (Request.QueryString  <>  "")  Then 

MM_edit  Action  =  MM_edit  Action  &  "?"  & 

Server.HTMLEncode(Request.QueryString) 

End  If 

'  boolean  to  abort  record  edit 
MM_abortEdit  =  false 

'  query  string  to  execute 
MM_editQuery  = "" 

%> 

<% 

'  ***  Update  Record:  set  variables 

If  (CStr(Request("MM_update"))  =  "forml"  And  CStr(Request("MM_recordId")) 
<>  "")  Then 

MMeditConnection  =  MM_conn_DistanceLeaming_STRING 
MM_editTable  =  "Category" 

MM_editColumn  =  "categoryid" 

MM_recordId  =  ""  +  Request.Form("MM_recordId")  +  "" 

MM_editRedirectUrl  =  "Form_Master_Category.asp" 

MM_fieldsStr  =  "categoryName|value|categoryDescription|value" 
MM_columnsStr  =  "categoryName|', none, "|categoryDescription|', none,"" 

'  create  the  MM_fields  and  MM_columns  arrays 
MM_fields  =  Split(MM_fieldsStr,  "I") 

MM_columns  =  Split(MM_columnsStr,  "|") 

'  set  the  form  values 

For  MM_i  =  LBound(MM_fields)  To  UBound(MM_fields)  Step  2 
MM_fields(MM_i+l)  =  CStr(Request.Form(MM_fields(MM_i))) 

Next 

'  append  the  query  string  to  the  redirect  URL 

If  (MM_editRedirectUrI  <>  ""  And  Request.QueryString  <>  "")  Then 
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If  (InStr(l,  MM_editRedirectUrl,  vbTextCompare)  =  0  And 

Request.QueryString  <> "")  Then 

MM_editRedirectUrl  =  MM_editRedirectUrl  &  "?"  &  Request.QueryString 
Else 

MM_editRedirectUrl  =  MM_editRedirectUrl  &  "&"  &  Request.QueryString 
End  If 
End  If 

End  If 

%> 

<% 

'  ***  Update  Record:  construct  a  sql  update  statement  and  execute  it 

If  (CStr(Request("MM_update"))  <>  ""  And  CStr(Request("MM_recordId"))  <> 
"")  Then 


'  create  the  sql  update  statement 

MM_editQuery  =  "update  "  &  MM_editTable  &  "  set " 

For  MM_i  =  LBound(MM_fields)  To  UBound(MM_fields)  Step  2 
MM_formVal  =  MM_fields(MM_i+l) 

MM_typeArray  =  Split(MM_columns(MM_i+l),",") 

MM_delim  =  MM_typeArray(0) 

If  (MM_delim  =  "none")  Then  MM_delim  =  "" 

MM_altVaI  =  MM_typeArray(I) 

If  (MM_altVal  =  "none")  Then  MM_altVal  =  "" 

MM_emptyVal  =  MM_typeArray(2) 

If  (MM_emptyVal  =  "none")  Then  MM_emptyVal  =  "" 

If  (MM_formVal  =  "")  Then 
MM_formVal  =  MM_emptyVal 
Else 

If  (MM_altVal  <>  "")  Then 
MM_formVal  =  MM_aItVaI 
Elself  (MM_delim  =  ""')  Then  '  escape  quotes 
MM_formVaI  =  ""'  &  RepIace(MM_formVaI, ""',""")  &  ""' 

Else 

MM_formVal  =  MM_delim  +  MM_formVal  +  MM_delim 
End  If 
End  If 

If  (MM_i  <>  LBound(MM_fields))  Then 
MM_editQuery  =  MM_editQuery  & 

End  If 

MM_editQuery  =  MM_editQuery  &  MM_coIumns(MM_i)  &  "  =  "  & 
MM_formVal 
Next 

MM_editQuery  =  MM_editQuery  &  "  where  "  &  MM_editColumn  &  "  =  "  & 
MM  recordid 
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If  (Not  MM_abortEdit)  Then 
'  execute  the  update 

Set  MM_editCmd  =  Server.  CreateObject("ADODB. Command") 
MMeditCmd.ActiveConnection  =  MMeditConnection 
MMeditCmd.CommandText  =  MMeditQuery 
MM_editCmd.Execute 
MM_editCmd.ActiveConnection.Close 

If  (MM_editRedirectUrI  <>  "")  Then 
Response.Redirect(MM_editRedirectUrI) 

End  If 
End  If 

End  If 

%> 

<% 

Dim  rs_category _ MMCoIParam 

rscategory _ MMCoIParam  =  "I" 

If  (Request.QueryStringC'categoryid")  <>  "")  Then 

rs_category _ MMCoIParam  =  Request.QueryString("categoryid") 

End  If 
%> 

<% 

Dim  rs_category 

Dim  rs_category_numRows 

Set  rs  category  =  Server.CreateObject("ADODB.Recordset") 
rs_category.ActiveConnection  =  MM_conn_DistanceLeaming_STRING 
rs_category. Source  =  "SELECT  *  FROM  Category  WHERE  categoryid  =  "  + 

RepIace(rs_category _ MMCoIParam, """)  +  "" 

rs_category.CursorType  =  0 
rs_category.CursorLocation  =  2 
rs_category.LockType  =  I 
rs_category .  Open() 

rs_category_numRows  =  0 

%> 

<!DOCTYPE  html  PUBLIC  "-//W3C//DTD  XHTML  1.0  TransitionaI//EN" 
"http://www.w3  .org/TR/xhtml  I/DTD/xhtml  I  -transitionaI.dtd"> 

<html  xmIns="http://www.w3.org/I999/xhtmI"> 

<head> 

<titIe>Distance  Learning:  Update  Category  Form</titIe> 

<meta  http-equiv="Content-Type"  content="text/htmI;  charset=iso-8859-I"  /> 
<Iink  href="DLStyIesheet.css"  rel="stylesheet"  type="text/css"  /> 

<style  type="text/css"> 
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<!- 
a:  link  { 

color:  #CC3300; 

} 

aivisited  { 

color:  #CC3399; 

} 

a:hover  { 

color:  #000066; 

} 

a:  active  { 

color:  #339900; 

} 

.style  1  {color:  #CC0000} 

— > 

</style> 

<script  language="JavaScript"  type="text/JavaScript"> 

<!- 

function  MM_findObj(n,  d)  {  //v4.01 

var  p,i,x;  if(!d)  d=docunient;  if((p=n.indexOf("?"))>0&&parent.franies. length) 

{ 

d=parent.ff anies[n.substring(p+ 1 )]  .document;  n=n.substring(0,p); } 
if(!(x=d[n])&&d.all)  x=d.all[n];  for  (i=0;!x&&i<d.forms.length;i++) 
x=d.  forms  [i][n]; 

for(i=0 ; !  x&&d.  lay  ers&&i<d.  layers .  length;i++) 
x=MM_fmdObj  (n,d.  lay  ers  [i]  .document) ; 

if(!x  &&  d.getElementByld)  x=d.getElementById(n);  return  x; 

} 

funetion  MM_validateForm()  { //v4.0 

var  i,p,q,nm, test, num, min, max, errors=",args=MM_validateForm.arguments; 
for  (i=0;  i<(args. length-2);  i+=3)  { test=args[i+2];  val=MM_findObj(args[i]); 
if  (val)  {  nm=val.name;  if  ((val=val.value)!="")  { 
if  (test.indexOf('isEmail')!=-l)  { p=val.indexOf('@'); 
if  (p<l  II  p==(val.length-l))  errors+='-  '+nm+'  must  eontain  an  e-mail 

address.W; 

}  else  if  (test!='R')  {  num  =  parseFloat(val); 
if  (isNaN(val))  errors+='-  '+nm+'  must  contain  a  number.\n'; 
if  (test.indexOf('inRange')  !=  -1)  {  p=test.indexOf(':'); 
min=test .  substring(  8  ,p) ;  max=test.  substring(p+ 1 ) ; 

if  (num<min  ||  max<num)  errors+='-  '+nm+'  must  contain  a  number 
between  '+min+'  and  '+max+'.\n'; 

}  }  }  else  if  (test.charAt(O)  ==  'R')  errors  +=  '-  '+nm+'  is  required.\n';  } 

}  if  (errors)  alert('The  following  error(s)  occurred:\n'+errors); 
document. MM_retumValue  =  (errors  ==  "); 

} 
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//-> 

</script> 

</head> 

<body> 

<table  width="95%"  height="214"  border="0"  align="center"  cellpadding="3" 
cellspacing="0"> 

<tr> 

<td  height="109"><table  width="100%"  border="0"  align="left" 
cellpadding="3"  cellspacing="0"  bgcolor="#DEDEBC"> 

<tr> 

<td  width="88%"  align="  center"  valign="middle" 

bgcolor="#DEDEBC"><img  sre="Images/nps_banner.gif'  width="447"  height="97"  /> 

</td> 

</tr> 

</table></td> 

</tr> 

<tr> 

<td  height="50"><table  width="72%"  border="0"  align="eenter" 
cellpadding="3"  eellspaeing="0"  bordereolor="#F6F6F3"> 

<tr> 

<td  width="14%"  bgeolor="#DEDEBC"><object 

classid="elsid:D27CDB6E-AE6D-llcf-96B8-444553540000" 

codebase="http://download.macromedia.eoin/pub/shoekwave/eabs/flash/swflash.eab#ver 
sion=5, 0,0,0"  width="103"  height="24"> 

<param  name="movie"  value="button2.swf'  /> 

<param  name="quality"  value="high"  /> 

<param  name="bgcolor"  value="#DEDEBC"  /> 

<embed  src="button2.swf'  quality="high" 

pluginspage="http://www.maeromedia.coin/shockwave/download/index.cgi?Pl_Prod_Ve 
rsion=ShockwaveFlash"  type="application/x-shockwave-flash"  width="103"  height="24" 
bgcolor="#DEDEBC"></embed> 

</object></td> 

<td  width="14%"  bgeolor="#DEDEBC"><object 

classid="elsid:D27CDB6E-AE6D-llcf-96B8-444553540000" 

codebase="http://download.macromedia.eoin/pub/shoekwave/eabs/flash/swflash.eab#ver 
sion=5,0,0,0"  name="Seareh"  width="100"  height="23"  id="Seareh"> 

<param  name="movie"  value="buttonLswf'  /> 

<param  name="quality"  value="high"  /> 

<param  name="bgcolor"  value="#DEDEBC"  /> 

<embed  src="buttonLswf'  width="100"  height="23"  quality="high" 
pluginspage="http://www.maeromedia.coin/shockwave/download/index.cgi?Pl_Prod_Ve 
rsion=ShockwaveFlash"  type="application/x-shockwave-flash"  bgcolor="#DEDEBC" 
name="  Seareh"></embed> 

</object></td> 

<td  width="14%"  bgeolor="#DEDEBC"><object 

classid="elsid:D27CDB6E-AE6D-llcf-96B8-444553540000" 
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codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#ver 
sion=5, 0,0,0"  width="100"  height="23"> 

<param  name="movie"  value="button3.swf'  /> 

<param  name="quality"  value="high"  /> 

<param  name="bgcolor"  value="#DEDEBC"  /> 

<embed  src="button3.swf'  quality="high" 

pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?Pl_Prod_Ve 
rsion=ShockwaveFlash"  type="application/x-shockwave-flash"  width="100"  height="23" 
bgcolor="#DEDEBC"></embed> 

</object></td> 

<td  width="14%"  bgcolor="#DEDEBC"><object 

classid="clsid:D27CDB6E-AE6D-llcf-96B8-444553540000" 

codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#ver 
sion=5,0,0,0"  width="100"  height="23"> 

<param  name="movie"  value="button4.swf '  /> 

<param  name="quality"  value="high"  /> 

<param  name="bgcolor"  value="#DEDEBC"  /> 

<embed  src="button4.swf'  quality="high" 

pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?Pl_Prod_Ve 
rsion=ShockwaveFlash"  type="application/x-shockwave-flash"  width="100"  height="23" 
bgcolor="#DEDEBC"></embed> 

</object></td> 

<td  width="14%"  bgcolor="#DEDEBC"><object 

classid="clsid:D27CDB6E-AE6D-llcf-96B8-444553540000" 

codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#ver 
sion=5,0,0,0"  width="103"  height="24"> 

<param  name="movie"  value="button5.swf'  /> 

<param  name="quality"  value="high"  /> 

<param  name="bgcolor"  value="#DEDEBC"  /> 

<embed  src="button5.swf'  quality="high" 

pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?Pl_Prod_Ve 
rsion=ShockwaveFlash"  type="application/x-shockwave-flash"  width="103"  height="24" 
bgcolor="#DEDEBC"></embed> 

</object></td> 

</tr> 

</table></td> 

</tr> 

<tr> 

<td><hr  />  <h3  align="center">  Update  Category  Record:  <span 

class="stylel"><%=(rs_category.Fields.Item("categoryName").Value)%></span></h3> 

<hr/> 

<form  name="formr'  id="forml"  method="POST" 

action="<%=MM_editAction%>"> 

<table  width="95%"  border="l"  align="  center"  cellpadding="3" 
cellspacing="0"> 

<tr> 
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<td>Category  Name  </td> 

<td><input  name="categoryName"  type="text"  id="categoryName" 
value="<%=(rs_category.Fields.Item("categoryName").Value)%>"  size="60"  /></td> 
</tr> 

<tr> 

<td>Category  Description  </td> 

<td><textarea  name="categoryDescription"  cols="60"  rows="5" 
id="categoryDescription"><%=(rs_category.Fields.Item("categoryDescription").Value)% 
></ textareax/ td> 

</tr> 

<tr> 

<td>&nbsp  ;</td> 

<td><input  name="Submit"  type="submit" 

onclick="MM_validateForm('categoryNameV','R','categoryDescription',",'R');retum 
document.MM_returnValue"  value="  Submit"  /></td> 

</tr> 

</table> 


<input  type="hidden"  name="MM_update"  value="forml"> 

<input  type="hidden"  name="MM_recordId"  value="<%= 
rs_category.Fields.Item("categoryid"). Value  %>"> 

</form>  <p  align="lefl">&nbsp;</p></td> 

</tr> 

<tr> 

<td>&nbsp;  </td> 

</tr> 

</table> 

<p>&nbsp;</p> 

<p>&nbsp;</p> 

</body> 

</html> 

<% 

rs_category.Close() 

Set  rs_category  =  Nothing 

%> 
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29.  Form_Update_Course.asp 


<%@LANGUAGE=" VBSCRIPT"  CODEPAGE='T252"%> 

<!— #include  file="Connections/conn_DistanceLeaming.asp"  — > 

<% 

'  ***  Restrict  Access  To  Page:  Grant  or  deny  access  to  this  page 
MM_authorizedUsers="admin, professor" 

MM_authFailedURL="  login,  asp" 

MM_grantAccess=false 
If  Session("MM_Usemame")  <>  ""  Then 
If  (false  Or  CStr(Session("MM_UserAuthorization"))="")  Or  _ 

(InStr(l,MM_authorizedUsers,Session("MM_UserAuthorization"))>=l) 

Then 

MM_grantAccess  =  true 
End  If 
End  If 

If  Not  MM_grantAccess  Then 
MM_qsChar  =  "?" 

If  (InStr(l,MM_authFailedURL,"?")  >=  1)  Then  MM  qsChar  =  "&" 
MM_referrer  =  Request.  ServerVariables("URL") 

if  (Len(Request.QueryString())  >  0)  Then  MM_referrer  =  MM_referrer  &  "?"  & 
Request.QueryStringO 

MM_authFailedURL  =  MM_authFailedURL  &  MM_qsChar  &  "accessdenied=" 
&  Server.URLEncode(MM_referrer) 

Response.Redirect(MM_authFailedURL) 

End  If 

%> 

<% 

'  ***  Edit  Operations:  declare  variables 

Dim  MMeditAction 
Dim  MMabortEdit 
Dim  MMeditQuery 
Dim  MM_editCmd 

Dim  MM_editConnection 
Dim  MM_editTable 
Dim  MMeditRedirectUrl 
Dim  MMeditColumn 
Dim  MM_recordId 

Dim  MMfieldsStr 
Dim  MMcolumnsStr 
Dim  MM_fields 
Dim  MM  columns 
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Dim  MMtypeArray 
Dim  MMformVal 
Dim  MMdelim 
Dim  MMaltVal 
Dim  MM_emptyVal 
Dim  MM_i 

MM_editAction  =  CStr(Request.ServerVariables("SCRIPT_NAME")) 

If  (Request.QueryString  <>  "")  Then 

MM_edit  Action  =  MM_edit  Action  &  "?"  & 

Server.HTMLEncode(Request.QueryString) 

End  If 

'  boolean  to  abort  record  edit 
MM_abortEdit  =  false 

'  query  string  to  execute 
MM_editQuery  = "" 

%> 

<% 

'  ***  Update  Record:  set  variables 

If  (CStr(Request("MM_update"))  =  "frm_Course"  And 

CStr(Request("MM_recordId"))  <>  "")  Then 

MMeditConnection  =  MM_conn_DistanceLeaming_STRING 
MM_editTable  =  "Course" 

MM_editColumn  =  "courseid" 

MM_recordId  =  ""  +  Request.Form("MM_recordId")  +  "" 

MMeditRedirectUrl  =  "Form_Course_Master.asp" 

MM_fieldsStr  =  "courseCode|value|courseName|value|courseDescription|value" 
MM_columnsStr  = 

"courseCodel', none, "|courseName|', none, "|courseDescription|', none,"" 

'  create  the  MM_fields  and  MM_columns  arrays 
MM_fieIds  =  SpIit(MM_fieIdsStr,  "I") 

MM_columns  =  Split(MM_columnsStr,  "|") 

'  set  the  form  values 

For  MM_i  =  LBound(MM_fields)  To  UBound(MM_fields)  Step  2 
MM_fields(MM_i+l)  =  CStr(Request.Form(MM_fields(MM_i))) 

Next 

'  append  the  query  string  to  the  redirect  URL 

If  (MM_editRedirectUrl  o  ""  And  Request.QueryString  o  "")  Then 
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If  (InStr(l,  MM_editRedirectUrl,  vbTextCompare)  =  0  And 

Request.QueryString  <> "")  Then 

MM_editRedirectUrl  =  MM_editRedirectUrl  &  "?"  &  Request.QueryString 
Else 

MM_editRedirectUrl  =  MM_editRedirectUrl  &  "&"  &  Request.QueryString 
End  If 
End  If 

End  If 

%> 

<% 

'  ***  Update  Record:  construct  a  sql  update  statement  and  execute  it 

If  (CStr(Request("MM_update"))  <>  ""  And  CStr(Request("MM_recordId"))  <> 
"")  Then 


'  create  the  sql  update  statement 

MM_editQuery  =  "update  "  &  MM_editTable  &  "  set " 

For  MM_i  =  LBound(MM_fields)  To  UBound(MM_fields)  Step  2 
MM_formVal  =  MM_fields(MM_i+l) 

MM_typeArray  =  Split(MM_columns(MM_i+l),",") 

MM_delim  =  MM_typeArray(0) 

If  (MM_delim  =  "none")  Then  MM_delim  =  "" 

MM_altVaI  =  MM_typeArray(I) 

If  (MM_altVal  =  "none")  Then  MM_altVal  =  "" 

MM_emptyVal  =  MM_typeArray(2) 

If  (MM_emptyVal  =  "none")  Then  MM_emptyVal  =  "" 

If  (MM_formVal  =  "")  Then 
MM_formVal  =  MM_emptyVal 
Else 

If  (MM_altVal  <>  "")  Then 
MM_formVal  =  MM_aItVaI 
Elself  (MM_delim  =  ""')  Then  '  escape  quotes 
MM_formVaI  =  ""'  &  RepIace(MM_formVaI, ""',""")  &  ""' 

Else 

MM_formVal  =  MM_delim  +  MM_formVal  +  MM_delim 
End  If 
End  If 

If  (MM_i  <>  LBound(MM_fields))  Then 
MM_editQuery  =  MM_editQuery  & 

End  If 

MM_editQuery  =  MM_editQuery  &  MM_coIumns(MM_i)  &  "  =  "  & 
MM_formVal 
Next 

MM_editQuery  =  MM_editQuery  &  "  where  "  &  MM_editColumn  &  "  =  "  & 
MM  recordid 
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If  (Not  MM_abortEdit)  Then 
'  execute  the  update 

Set  MM_editCmd  =  Server.  CreateObject("ADODB. Command") 
MMeditCmd.ActiveConnection  =  MMeditConnection 
MMeditCmd.CommandText  =  MMeditQuery 
MM_editCmd.Execute 
MM_editCmd.ActiveConnection.Close 

If  (MM_editRedirectUrI  <>  "")  Then 
Response.Redirect(MM_editRedirectUrI) 

End  If 
End  If 

End  If 

%> 

<% 

Dim  rs_course _ MMCoIParam 

rs_course _ MMCoIParam  =  "  I " 

If  (Request.QueryStringC'courseid")  <>  "")  Then 

rscourse _ MMCoIParam  =  Request.QueryStringC'courseid") 

End  If 
%> 

<% 

Dim  rs_course 

Dim  rs_course_numRows 

Set  rs  course  =  Server.CreateObject("ADODB.Recordset") 
rs_course.ActiveConnection  =  MMconnDistanceLeamingSTRING 
rs  course. Source  =  "SELECT  *  FROM  Course  WHERE  courseid  =  "  + 

RepIace(rs_course _ MMCoIParam,  """)  +  "" 

rs_course.CursorType  =  0 
rs_course.CursorLocation  =  2 
rs_course.LockType  =  I 
rs_course .  Open() 

rscoursenumRows  =  0 

%> 

<!DOCTYPE  html  PUBLIC  "-//W3C//DTD  XHTML  I.O  TransitionaI//EN" 
"http://www.w3  .org/TR/xhtml  I/DTD/xhtml  I  -transitionaI.dtd"> 

<html  xmIns="http://www.w3.org/I999/xhtmI"> 

<head> 

<titIe>Distance  Learning:  Update  Course  Record</titIe> 

<meta  http-equiv="Content-Type"  content="text/htmI;  charset=iso-8859-I"  /> 
<Iink  href="DLStyIesheet.css"  rel="stylesheet"  type="text/css"  /> 

<style  type="text/css"> 
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<!- 
a:  link  { 

color:  #CC3300; 

} 

aivisited  { 

color:  #CC3399; 

} 

a:hover  { 

color:  #000066; 

} 

a:  active  { 

color:  #339900; 

} 

— > 

</style> 

<script  language="JavaScript"  type="text/JavaScript"> 

<!- 

function  MM_findObj(n,  d)  { //v4.01 

var  p,i,x;  if(!d)  d=document;  if((p=n.indexOf("?"))>0&&parent.frames. length) 

{ 

d=parent.frames[n.substring(p+ 1 )]  .document;  n=n.substring(0,p); } 
if(!(x=d[n])&&d.all)  x=d.all[n];  for  (i=0;!x&&i<d.forms.length;i++) 
x=d.  forms  [i][n]; 

for(i=0;!x&&d.layers&&i<d.layers.length;i++) 
x=MM_fmdObj  (n,d-  lay  ers  [i]  .document) ; 

if(!x  &&  d.getElementByld)  x=d.getElementById(n);  return  x; 

} 

funetion  MM_validateForm()  { //v4.0 

var  i,p,q,nm, test, num, min, max, errors=",args=MM_validateForm.arguments; 
for  (i=0;  i<(args. length-2);  i+=3)  { test=args[i-i-2];  val=MM_findObj(args[i]); 
if  (val)  {  nm=val.name;  if  ((val=val.value)!="")  { 
if  (test.indexOf('isEmail')!=-l)  { p=val.indexOf('@'); 
if  (p<l  II  p==(val.length-l))  errors+='-  '-l-nm-l-'  must  eontain  an  e-mail 

address.\n'; 

}  else  if  (test!='R')  {  num  =  parseFloat(val); 
if  (isNaN(val))  errors-i-='-  '+nm+'  must  contain  a  number.\n'; 
if  (test.indexOf('inRange')  !=  -1)  {  p=test.indexOf(':'); 
min=test.substring(8,p);  max=test.substring(p+l); 

if  (num<min  ||  max<num)  errors+='-  '-l-nm-l-'  must  contain  a  number 
between  '-i-min-i-'  and  '-i-max-i-'.\n'; 

}  }  }  else  if  (test.charAt(O)  ==  'R')  errors  -l-=  '-  '-l-nm-l-'  is  required.\n';  } 

}  if  (errors)  alert('The  following  error(s)  occurred:\n'-i-errors); 
document. MM_retumValue  =  (errors  ==  "); 

} 

//-> 
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</script> 

</head> 

<body> 

<table  width="95%"  height="214"  border="0"  align="center"  cellpadding="3" 
cellspacing="0"> 

<tr> 

<td  height="109"><table  width="100%"  border="0"  align="left" 
cellpadding="3"  cellspacing="0"  bgcolor="#DEDEBC"> 

<tr> 

<td  width="88%"  align="  center"  valign="middle" 

bgcolor="#DEDEBC"><img  src="Images/nps_banner.gif'  width="447"  height="97"  /> 

</td> 

</tr> 

</table></td> 

</tr> 

<tr> 

<td  height="50"><table  width="72%"  border="0"  align="center" 
cellpadding="3"  cellspacing="0"  bordercolor="#F6F6F3"> 

<tr> 

<td  width="14%"  bgcolor="#DEDEBC"><object 

classid="clsid:D27CDB6E-AE6D-llcf-96B8-444553540000" 

codebase="http://download.macromedia.coni/pub/shockwave/cabs/flash/swflash.cab#ver 
sion=5, 0,0,0"  width="103"  height="24"> 

<param  name="movie"  value="button2.swf'  /> 

<param  name="quality"  value="high"  /> 

<param  name="bgcolor"  value="#DEDEBC"  /> 

<embed  src="button2.swf'  quality="high" 

pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?Pl_Prod_Ve 
rsion=ShockwaveFlash"  type="application/x-shockwave-flash"  width="103"  height="24" 
bgcolor="#DEDEBC"></embed> 

</object></td> 

<td  width="14%"  bgcolor="#DEDEBC"><object 

classid="clsid:D27CDB6E-AE6D-llcf-96B8-444553540000" 

codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#ver 
sion=5,0,0,0"  name=" Search"  width="100"  height="23"  id="Search"> 

<param  name="movie"  value="buttonl.swf'  /> 

<param  name="quality"  value="high"  /> 

<param  name="bgcolor"  value="#DEDEBC"  /> 

<embed  src="buttonl.swf'  width="100"  height="23"  quality="high" 
pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?Pl_Prod_Ve 
rsion=ShockwaveFlash"  type="application/x-shockwave-flash"  bgcolor="#DEDEBC" 
name="  Search"></embed> 

</object></td> 

<td  width="14%"  bgcolor="#DEDEBC"><object 

classid="clsid:D27CDB6E-AE6D-llcf-96B8-444553540000" 
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codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#ver 
sion=5, 0,0,0"  width="100"  height="23"> 

<param  name="movie"  value="button3.swf'  /> 

<param  name="quality"  value="high"  /> 

<param  name="bgcolor"  value="#DEDEBC"  /> 

<embed  src="button3.swf'  quality="high" 

pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?Pl_Prod_Ve 
rsion=ShockwaveFlash"  type="application/x-shockwave-flash"  width="100"  height="23" 
bgcolor="#DEDEBC"></embed> 

</object></td> 

<td  width="14%"  bgcolor="#DEDEBC"><object 

classid="clsid:D27CDB6E-AE6D-llcf-96B8-444553540000" 

codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#ver 
sion=5,0,0,0"  width="100"  height="23"> 

<param  name="movie"  value="button4.swf'  /> 

<param  name="quality"  value="high"  /> 

<param  name="bgcolor"  value="#DEDEBC"  /> 

<embed  src="button4.swf'  quality="high" 

pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?Pl_Prod_Ve 
rsion=ShockwaveFlash"  type="application/x-shockwave-flash"  width="100"  height="23" 
bgcolor="#DEDEBC"></embed> 

</object></td> 

<td  width="14%"  bgcolor="#DEDEBC"><object 

classid="clsid:D27CDB6E-AE6D-llcf-96B8-444553540000" 

codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#ver 
sion=5,0,0,0"  width="103"  height="24"> 

<param  name="movie"  value="button5.swf'  /> 

<param  name="quality"  value="high"  /> 

<param  name="bgcolor"  value="#DEDEBC"  /> 

<embed  src="button5.swf'  quality="high" 

pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?Pl_Prod_Ve 
rsion=ShockwaveFlash"  type="application/x-shockwave-flash"  width="103"  height="24" 
bgcolor="#DEDEBC"></embed> 

</object></td> 

</tr> 

</table></td> 

</tr> 

<tr> 

<td><hr  />  <h3  align="center">  Update  Course  Record  </h3> 

<hr  />  <form  ACTION="<%=MM_editAction%>"  METHOD="POST" 
name="frm_Course"  id="frm_Course"> 

<table  width="95%"  border="l"  align="  center"  cellpadding="3" 

cellspacing="0"> 

<tr> 

<td>Course  Code  </td> 
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id="courseCode' 


<td><input  name="courseCode"  type="text" 
value="<%=(rs_course.Fields.Item("courseCode").Value)%>"  /></td> 

</tr> 

<tr> 

<td>Course  Name  </td> 

<td><input  name="courseName"  type="text"  id="courseName" 

value="<%=(rs_course.Fields.Item("courseName").Value)%>"  /></td> 

</tr> 

<tr> 

<td>Course  Description  </td> 

<td><textarea  name="courseDescription"  cols="50" 

id="courseDescription"><%=(rs_course. Fields. Item("courseDescription").Value)%></te 
xtarea></td> 

</tr> 

<tr> 

<td>&nbsp  ;</td> 

<td><input  name="Submit"  type="submit" 

onclick="MM_validateForm('courseCodeV','R','courseName',",'R','courseDescription',",'R 
');retum  document. MM_retum Value"  value="Update"  /></td> 

</tr> 

</table> 

<input  type="hidden"  name="MM_update"  value="frm_Course"> 
<input  type="hidden"  name="MM_recordId"  value="<%= 
rs_course.Fields.Item("courseid"). Value  %>"> 

</form>  <p  align="left">&nbsp;</p></td> 

</tr> 

<tr> 

<td>&nbsp;  </td> 

</tr> 

</table> 

<p>&nbsp;</p> 

<p>&nbsp;</p> 

</body> 

</html> 

<% 

rs_course.Close() 

Set  rs_course  =  Nothing 

%> 
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30.  Form_Update_Image.asp 


<%@LANGUAGE=" VBSCRIPT"  CODEPAGE='T252"%> 

<!— #include  file="Connections/conn_DistanceLeaming.asp"  — > 

<% 

'  ***  Restrict  Access  To  Page:  Grant  or  deny  access  to  this  page 
MM_authorizedUsers="admin, professor" 

MM_authFailedURL="  login,  asp" 

MM_grantAccess=false 
If  Session("MM_Usemame")  <>  ""  Then 
If  (false  Or  CStr(Session("MM_UserAuthorization"))="")  Or  _ 

(InStr(l,MM_authorizedUsers,Session("MM_UserAuthorization"))>=l) 

Then 

MM_grantAccess  =  true 
End  If 
End  If 

If  Not  MM_grantAccess  Then 
MM_qsChar  =  "?" 

If  (InStr(l,MM_authFailedURL,"?")  >=  1)  Then  MM  qsChar  =  "&" 
MM_referrer  =  Request.  ServerVariables("URL") 

if  (Len(Request.QueryString())  >  0)  Then  MM_referrer  =  MM_referrer  &  "?"  & 
Request.QueryStringO 

MM_authFailedURL  =  MM_authFailedURL  &  MM_qsChar  &  "accessdenied=" 
&  Server.URLEncode(MM_referrer) 

Response.Redirect(MM_authFailedURL) 

End  If 

%> 

<% 

'  ***  Edit  Operations:  declare  variables 

Dim  MMeditAction 
Dim  MMabortEdit 
Dim  MMeditQuery 
Dim  MM_editCmd 

Dim  MM_editConnection 
Dim  MM_editTable 
Dim  MMeditRedirectUrl 
Dim  MMeditColumn 
Dim  MM_recordId 

Dim  MMfieldsStr 
Dim  MMcolumnsStr 
Dim  MM_fields 
Dim  MM  columns 
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Dim  MMtypeArray 
Dim  MMformVal 
Dim  MMdelim 
Dim  MMaltVal 
Dim  MM_emptyVal 
Dim  MM_i 

MM_editAction  =  CStr(Request.ServerVariables("SCRIPT_NAME")) 

If  (Request.QueryString  <>  "")  Then 

MM_edit  Action  =  MM_edit  Action  &  "?"  & 

Server.HTMLEncode(Request.QueryString) 

End  If 

'  boolean  to  abort  record  edit 
MM_abortEdit  =  false 

'  query  string  to  execute 
MM_editQuery  = "" 

%> 

<% 

'  ***  Update  Record:  set  variables 

If  (CStr(Request("MM_update"))  =  "formi"  And  CStr(Request("MM_recordId")) 
<>  "")  Then 

MMeditConnection  =  MM_conn_DistanceLeaming_STRING 
MM_editTable  =  "Graphic" 

MM_editColumn  =  "graphicid" 

MM_recordId  =  ""  +  Request.Form("MM_recordId")  +  "" 

MMeditRedirectUrl  =  "Form_Image_Master.asp" 

MM_fieldsStr 

"graphicName|vaIue|graphicDescription|value|graphicPath|value|author|vaIue" 

MM_columnsStr  = 

"graphicNamel', none, "|graphicDescription|', none, "|graphicPath|', none, "|author|', none,"" 

'  create  the  MM_fieIds  and  MM_columns  arrays 
MM_fields  =  Split(MM_fieldsStr,  "I") 

MM_columns  =  Split(MM_columnsStr,  "|") 

'  set  the  form  values 

For  MM_i  =  LBound(MM_fields)  To  UBound(MM_fields)  Step  2 
MM_fields(MM_i+l)  =  CStr(Request.Form(MM_fields(MM_i))) 

Next 

'  append  the  query  string  to  the  redirect  URL 

If  (MM_editRedirectUrI  <>  ""  And  Request.QueryString  <>  "")  Then 
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If  (InStr(l,  MM_editRedirectUrl,  vbTextCompare)  =  0  And 

Request.QueryString  <> "")  Then 

MM_editRedirectUrl  =  MM_editRedirectUrl  &  "?"  &  Request.QueryString 
Else 

MM_editRedirectUrl  =  MM_editRedirectUrl  &  "&"  &  Request.QueryString 
End  If 
End  If 

End  If 

%> 

<% 

'  ***  Update  Record:  construct  a  sql  update  statement  and  execute  it 

If  (CStr(Request("MM_update"))  <>  ""  And  CStr(Request("MM_recordId"))  <> 
"")  Then 


'  create  the  sql  update  statement 

MM_editQuery  =  "update  "  &  MM_editTable  &  "  set " 

For  MM_i  =  LBound(MM_fields)  To  UBound(MM_fields)  Step  2 
MM_formVal  =  MM_fields(MM_i+l) 

MM_typeArray  =  Split(MM_columns(MM_i+l),",") 

MM_delim  =  MM_typeArray(0) 

If  (MM_delim  =  "none")  Then  MM_delim  =  "" 

MM_altVaI  =  MM_typeArray(I) 

If  (MM_altVal  =  "none")  Then  MM_altVal  =  "" 

MM_emptyVal  =  MM_typeArray(2) 

If  (MM_emptyVal  =  "none")  Then  MM_emptyVal  =  "" 

If  (MM_formVal  =  "")  Then 
MM_formVal  =  MM_emptyVal 
Else 

If  (MM_altVal  <>  "")  Then 
MM_formVal  =  MM_aItVaI 
Elself  (MM_delim  =  ""')  Then  '  escape  quotes 
MM_formVaI  =  ""'  &  RepIace(MM_formVaI, ""',""")  &  ""' 

Else 

MM_formVal  =  MM_delim  +  MM_formVal  +  MM_delim 
End  If 
End  If 

If  (MM_i  <>  LBound(MM_fields))  Then 
MM_editQuery  =  MM_editQuery  & 

End  If 

MM_editQuery  =  MM_editQuery  &  MM_coIumns(MM_i)  &  "  =  "  & 
MM_formVal 
Next 

MM_editQuery  =  MM_editQuery  &  "  where  "  &  MM_editColumn  &  "  =  "  & 
MM  recordid 
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If  (Not  MM_abortEdit)  Then 
'  execute  the  update 

Set  MM_editCmd  =  Server.  CreateObject("ADODB. Command") 
MMeditCmd.ActiveConnection  =  MMeditConnection 
MMeditCmd.CommandText  =  MMeditQuery 
MM_editCmd.Execute 
MM_editCmd.ActiveConnection.Close 

If  (MM_editRedirectUrI  <>  "")  Then 
Response.Redirect(MM_editRedirectUrI) 

End  If 
End  If 

End  If 

%> 

<% 

Dim  rsgraphic _ MMCoIParam 

rs_graphic _ MMCoIParam  =  "1" 

If  (Request.QueryStringC'graphicid")  <>  "")  Then 

rsgraphic _ MMCoIParam  =  Request.QueryStringC'graphicid") 

End  If 
%> 

<% 

Dim  rs  graphic 

Dim  rsgraphicnumRows 

Set  rs  graphic  =  Server.CreateObject("ADODB.Recordset") 
rsgraphic.ActiveConnection  =  MMconnDistanceLeamingSTRING 
rs  graphic. Source  =  "SELECT  *  FROM  Graphic  WHERE  graphicid  =  "  + 

Replace(rs_graphic _ MMCoIParam, """)  +  "" 

rs_graphic.CursorType  =  0 
rs_graphic.CursorLocation  =  2 
rsgraphic.LockType  =  I 
rs_graphic .  Open() 

rs_graphic_numRows  =  0 

%> 

<!DOCTYPE  html  PUBLIC  "-//W3C//DTD  XHTML  I.O  TransitionaI//EN" 
"http://www.w3  .org/TR/xhtml  I/DTD/xhtml  I  -transitionaI.dtd"> 

<html  xmIns="http://www.w3.org/I999/xhtmI"> 

<head> 

<titIe>Distance  Learning:  Form  Update  Image</title> 

<meta  http-equiv="Content-Type"  content="text/htmI;  charset=iso-8859-I"  /> 
<Iink  href="DLStyIesheet.css"  rel="stylesheet"  type="text/css"  /> 

<style  type="text/css"> 
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<!- 
a:  link  { 

color:  #CC3300; 

} 

aivisited  { 

color:  #CC3399; 

} 

a:hover  { 

color:  #000066; 

} 

a:  active  { 

color:  #339900; 

} 

— > 

</style> 

<script  language="JavaScript"  type="text/JavaScript"> 

<!- 

function  MM_findObj(n,  d)  { //v4.01 

var  p,i,x;  if(!d)  d=document;  if((p=n.indexOf("?"))>0&&parent.frames. length) 

{ 

d=parent.frames[n.substring(p+ 1 )]  .document;  n=n.substring(0,p); } 
if(!(x=d[n])&&d.all)  x=d.all[n];  for  (i=0;!x&&i<d.forms.length;i++) 
x=d.  forms  [i][n]; 

for(i=0;!x&&d.layers&&i<d.layers.length;i++) 
x=MM_fmdObj  (n,d-  lay  ers  [i]  .document) ; 

if(!x  &&  d.getElementByld)  x=d.getElementById(n);  return  x; 

} 

funetion  MM_validateForm()  { //v4.0 

var  i,p,q,nm, test, num, min, max, errors=",args=MM_validateForm.arguments; 
for  (i=0;  i<(args. length-2);  i+=3)  { test=args[i-i-2];  val=MM_findObj(args[i]); 
if  (val)  {  nm=val.name;  if  ((val=val.value)!="")  { 
if  (test.indexOf('isEmail')!=-l)  { p=val.indexOf('@'); 
if  (p<l  II  p==(val.length-l))  errors+='-  '-l-nm-l-'  must  eontain  an  e-mail 

address.\n'; 

}  else  if  (test!='R')  {  num  =  parseFloat(val); 
if  (isNaN(val))  errors-i-='-  '+nm+'  must  contain  a  number.\n'; 
if  (test.indexOf('inRange')  !=  -1)  {  p=test.indexOf(':'); 
min=test.substring(8,p);  max=test.substring(p+l); 

if  (num<min  ||  max<num)  errors+='-  '-l-nm-l-'  must  contain  a  number 
between  '-i-min-i-'  and  '-i-max-i-'.\n'; 

}  }  }  else  if  (test.charAt(O)  ==  'R')  errors  -l-=  '-  '-l-nm-l-'  is  required.\n';  } 

}  if  (errors)  alert('The  following  error(s)  occurred:\n'-i-errors); 
document. MM_retumValue  =  (errors  ==  "); 

} 

//-> 
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</script> 

</head> 

<body> 

<table  width="95%"  height="214"  border="0"  align="center"  cellpadding="3" 
cellspacing="0"> 

<tr> 

<td  height="109"><table  width="100%"  border="0"  align="left" 
cellpadding="3"  cellspacing="0"  bgcolor="#DEDEBC"> 

<tr> 

<td  width="88%"  align="  center"  valign="middle" 

bgcolor="#DEDEBC"><img  src="Images/nps_banner.gif'  width="447"  height="97"  /> 

</td> 

</tr> 

</table></td> 

</tr> 

<tr> 

<td  height="50"><table  width="72%"  border="0"  align="center" 
cellpadding="3"  cellspacing="0"  bordercolor="#F6F6F3"> 

<tr> 

<td  width="14%"  bgcolor="#DEDEBC"><object 

classid="clsid:D27CDB6E-AE6D-llcf-96B8-444553540000" 

codebase="http://download.macromedia.coni/pub/shockwave/cabs/flash/swflash.cab#ver 
sion=5, 0,0,0"  width="103"  height="24"> 

<param  name="movie"  value="button2.swf'  /> 

<param  name="quality"  value="high"  /> 

<param  name="bgcolor"  value="#DEDEBC"  /> 

<embed  src="button2.swf'  quality="high" 

pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?Pl_Prod_Ve 
rsion=ShockwaveFlash"  type="application/x-shockwave-flash"  width="103"  height="24" 
bgcolor="#DEDEBC"></embed> 

</object></td> 

<td  width="14%"  bgcolor="#DEDEBC"><object 

classid="clsid:D27CDB6E-AE6D-llcf-96B8-444553540000" 

codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#ver 
sion=5,0,0,0"  name=" Search"  width="100"  height="23"  id="Search"> 

<param  name="movie"  value="buttonl.swf'  /> 

<param  name="quality"  value="high"  /> 

<param  name="bgcolor"  value="#DEDEBC"  /> 

<embed  src="buttonl.swf'  width="100"  height="23"  quality="high" 
pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?Pl_Prod_Ve 
rsion=ShockwaveFlash"  type="application/x-shockwave-flash"  bgcolor="#DEDEBC" 
name="  Search"></embed> 

</object></td> 

<td  width="14%"  bgcolor="#DEDEBC"><object 

classid="clsid:D27CDB6E-AE6D-llcf-96B8-444553540000" 


271 


codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#ver 
sion=5, 0,0,0"  width="100"  height="23"> 

<param  name="movie"  value="button3.swf'  /> 

<param  name="quality"  value="high"  /> 

<param  name="bgcolor"  value="#DEDEBC"  /> 

<embed  src="button3.swf'  quality="high" 

pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?Pl_Prod_Ve 
rsion=ShockwaveFlash"  type="application/x-shockwave-flash"  width="100"  height="23" 
bgcolor="#DEDEBC"></embed> 

</object></td> 

<td  width="14%"  bgcolor="#DEDEBC"><object 

classid="clsid:D27CDB6E-AE6D-llcf-96B8-444553540000" 

codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#ver 
sion=5,0,0,0"  width="100"  height="23"> 

<param  name="movie"  value="button4.swf '  /> 

<param  name="quality"  value="high"  /> 

<param  name="bgcolor"  value="#DEDEBC"  /> 

<embed  src="button4.swf'  quality="high" 

pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?Pl_Prod_Ve 
rsion=ShockwaveFlash"  type="application/x-shockwave-flash"  width="100"  height="23" 
bgcolor="#DEDEBC"></embed> 

</object></td> 

<td  width="14%"  bgcolor="#DEDEBC"><object 

classid="clsid:D27CDB6E-AE6D-llcf-96B8-444553540000" 

codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#ver 
sion=5,0,0,0"  width="103"  height="24"> 

<param  name="movie"  value="button5.swf'  /> 

<param  name="quality"  value="high"  /> 

<param  name="bgcolor"  value="#DEDEBC"  /> 

<embed  src="button5.swf'  quality="high" 

pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?Pl_Prod_Ve 
rsion=ShockwaveFlash"  type="application/x-shockwave-flash"  width="103"  height="24" 
bgcolor="#DEDEBC"></embed> 

</object></td> 

</tr> 

</table></td> 

</tr> 

<tr> 

<td><hr  />  <h3  align="center">  Update  Image  Record  </h3> 

<hr/> 

<form  name="forml"  id="forml"  method="POST" 

action="<%=MM_editAction%>"> 

<table  width="95%"  border="l"  align="  center"  cellpadding="3" 

cellspacing="0"> 

<tr> 

<td>Image  Name  </td> 
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<td><input  name="graphicName"  type="text"  id="graphicName" 
value="<%=(rs_graphic.Fields.Item("graphicName").Value)%>"  size="60"  /></td> 

</tr> 

<tr> 

<td>Image  Description  </td> 

<td><textarea  name="graphicDescription"  cols="60"  rows="5" 
id="graphicDescription"><%=(rs_graphic.Fields.Item("graphicDescription").Value)%>< 
/textarea></td> 

</tr> 

<tr> 

<td>Image  Relative  Path  </td> 

<td><input  name="graphicPath"  type="text"  id="graphicPath" 
value="<%=(rs_graphic.Fields.Item("graphicPath").Value)%>"  size="60"  /></td> 

</tr> 

<tr> 

<td><input  name=" author"  type="hidden"  id="author"  value="<%= 
Session("MM_Usemame")  %>"  /> 

<input  name="subsectionid"  type="hidden"  id="subsectionid" 
value="<%=  Request. Query StringC'subsectionid")  %>"  /></td> 

<td><input  name="  Submit"  type="submit" 

onclick="MM_validateForm('graphicName',",'R','graphicPathV','R','graphicDescriptionV', 
'R');retum  document. MM_retumValue"  value="  Submit"  /></td> 

</tr> 

</table> 


<input  type="hidden"  name="MM_update"  value="forml"> 

<input  type="hidden"  name="MM_recordId"  value="<%= 
rs_graphic.Fields.Item("graphicid").Value  %>"> 

</form>  <p  align="left">&nbsp;</p></td> 

</tr> 

<tr> 

<td>&nbsp;  </td> 

</tr> 

</table> 

<p>&nbsp;</p> 

<p>&nbsp;</p> 

</body> 

</html> 

<% 

rs_graphic.Close() 

Set  rs_graphic  =  Nothing 

%> 
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31.  Form_Update_Subject.asp 


<%@LANGUAGE=" VBSCRIPT"  CODEPAGE='T252"%> 

<!— #include  file="Connections/conn_DistanceLeaming.asp"  — > 

<% 

'  ***  Edit  Operations:  declare  variables 

Dim  MMeditAction 
Dim  MMabortEdit 
Dim  MMeditQuery 
Dim  MMeditCmd 

Dim  MMeditConnection 
Dim  MMeditTable 
Dim  MM_editRedirectUrl 
Dim  MM_editColumn 
Dim  MM_recordId 

Dim  MM  fieldsStr 
Dim  MMcolumnsStr 
Dim  MMfields 
Dim  MMcolumns 
Dim  MMtypeArray 
Dim  MM_formVal 
Dim  MM_delim 
Dim  MM_altVal 
Dim  MM_emptyVal 
Dim  MM_i 

MM_editAction  =  CStr(Request.ServerVariables("SCRIPT_NAME")) 

If  (Request.QueryString  <>  "")  Then 

MM_edit  Action  =  MM_edit  Action  &  "?"  & 

Server.HTMLEncode(Request.QueryString) 

End  If 

'  boolean  to  abort  record  edit 
MM_abortEdit  =  false 

'  query  string  to  execute 
MM_editQuery  = "" 

%> 

<% 

'  ***  Update  Record:  set  variables 


274 


If  (CStr(Request("MM_update"))  =  "frm_Subject"  And 
CStr(Request("MM_recordId"))  <>  "")  Then 

MMeditConnection  =  MM_conn_DistanceLeaming_STRING 
MM_editTable  =  "Subject" 

MM_editColumn  =  "subjectid" 

MM_recordId  =  ""  +  Request.Form("MM_recordId")  +  "" 

MMeditRedirectUrl  =  "Fomi_Subject_Master.asp" 

MM_fieldsStr  =  "subjectName|value|subjectDescription|value" 

MM_columnsStr  =  "subjectName|', none, "|subjectDescription|', none,"" 

'  create  the  MM_fields  and  MM_columns  arrays 
MM_fields  =  Split(MM_fieldsStr,  "I") 

MM_colunins  =  Split(MM_coluninsStr,  "|") 

'  set  the  form  values 

For  MM_i  =  LBound(MM_fields)  To  UBound(MM_fields)  Step  2 
MM_fields(MM_i+l)  =  CStr(Request.Form(MM_fields(MM_i))) 

Next 

'  append  the  query  string  to  the  redirect  URL 

If  (MM  editRedirectUrl  o  ""  And  Request.QueryString  o  "")  Then 
If  (InStr(I,  MM_editRedirectUrl,  "?",  vbTextCompare)  =  0  And 

Request.QueryString  <>  "")  Then 

MM_editRedirectUrl  =  MM_editRedirectUrl  &  "?"  &  Request.QueryString 
Else 

MM_editRedirectUrl  =  MM_editRedirectUrl  &  &  Request.QueryString 

End  If 
End  If 

End  If 

%> 

<% 

'  ***  Update  Record:  construct  a  sql  update  statement  and  execute  it 

If  (CStr(Request("MM_update"))  <>  ""  And  CStr(Request("MM_recordId"))  <> 
"")  Then 


'  create  the  sql  update  statement 

MM_editQuery  =  "update  "  &  MM_editTable  &  "  set " 

For  MM_i  =  LBound(MM_fields)  To  UBound(MM_fields)  Step  2 
MM_formVal  =  MM_fields(MM_i+l) 

MM_typeArray  =  Split(MM_columns(MM_i+l),",") 

MM_delim  =  MM_typeArray(0) 

If  (MM_delim  =  "none")  Then  MM_delim  =  "" 

MM_altVaI  =  MM_typeArray(I) 
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If  (MM_altVal  =  "none")  Then  MM_altVal  =  "" 

MM_emptyVal  =  MM_typeArray(2) 

If  (MM_emptyVaI  =  "none")  Then  MM_emptyVal  =  "" 

If  (MM  formVal  =  "")  Then 
MM_formVaI  =  MM_emptyVaI 
Else 

If  (MM_altVal  <>  "")  Then 
MM_fomiVal  =  MM_altVal 
Elself  (MM_delim  =  ""')  Then  '  escape  quotes 
MM_fomiVal  =  "'"  &  Replace(MM_fomiVal, ""',""")  & 

Else 

MM_fomiVal  =  MM_delini  +  MM_fomiVal  +  MM_delim 
End  If 
End  If 

If  (MM_i  <>  LBound(MM_fields))  Then 
MM_editQuery  =  MM_editQuery  & 

End  If 

MM_editQuery  =  MM_editQuery  &  MM_colunins(MM_i)  &  "  =  "  & 
MM_formVal 
Next 

MM_editQuery  =  MM_editQuery  &  "  where  "  &  MM_editColumn  &  "  =  "  & 
MM_recordId 

If  (Not  MM_abortEdit)  Then 
'  execute  the  update 

Set  MM_editCmd  =  Server.CreateObject("ADODB. Command") 
MMeditCmd.ActiveConnection  =  MMeditConnection 
MMeditCmd.CommandText  =  MMeditQuery 
MM_editCmd.  Execute 
MM_editCmd.ActiveConnection.Close 

If  (MM_editRedirectUrl  <>  "")  Then 
Response.Redirect(MM_editRedirectUrl) 

End  If 
End  If 

End  If 

%> 

<% 

Dim  rs_subject _ MMColParam 

rssubject _ MMColParam  =  "1" 

If  (Request.QueryStringC'subjectid")  <>  "")  Then 

rs_subject _ MMColParam  =  Request.QueryStringC'subjectid") 

End  If 
%> 

<% 
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Dim  rssubject 

Dim  rs_subject_numRows 

Set  rs  subject  =  Server.CreateObject("ADODB.Recordset") 
rssubject.ActiveConnection  =  MMconnDistanceLeamingSTRING 
rs_subject. Source  =  "SELECT  *  FROM  Subject  WHERE  subjectid  =  "  + 

Replace(rs_subject _ MMColParam,  """)  +  "" 

rs_subject.CursorType  =  0 
rs_subject.CursorLocation  =  2 
rs_subject.LockType  =  1 
rs_subj  ect.  Open() 

rs_subject_numRows  =  0 

%> 

<!DOCTYPE  html  PUBLIC  "-//W3C//DTD  XHTML  1.0  Transitional//EN" 
"http://www.w3  .org/TR/xhtml  1 /DTD/xhtml  1  -transitional.dtd"> 

<html  xmlns="http  ://www. w3  .org/ 1 999/xhtml"> 

<head> 

<title>Distance  Learning:  Update  Subject  Record</title> 

<meta  http-equiv="Content-Type"  content="text/html;  charset=iso-8859-l"  /> 
<link  href="DLStylesheet.css"  rel="stylesheet"  type="text/css"  /> 

<style  type="text/css"> 

<!- 
a:  link  { 

color:  #CC3300; 

} 

a:visited  { 

color:  #CC3399; 

} 

a:hover  { 

color:  #000066; 

} 

a:  active  { 

color:  #339900; 

} 

— > 

</style></head> 

<body> 

<table  width="95%"  height="214"  border="0"  align="center"  cellpadding="3" 
cellspacing="0"> 

<tr> 

<td  height="109"><table  width="100%"  border="0"  align="left" 
cellpadding="3"  cellspacing="0"  bgcolor="#DEDEBC"> 

<tr> 
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<td  width="88%"  align="  center"  valign="middle" 

bgcolor="#DEDEBC"><img  sre="Images/nps_banner.gif'  width="447"  height="97"  /> 

</td> 

</tr> 

</table></td> 

</tr> 

<tr> 

<td  height="50"><table  width="72%"  border="0"  align="eenter" 
cellpadding="3"  eellspaeing="0"  bordereolor="#F6F6F3"> 

<tr> 

<td  width="14%"  bgeolor="#DEDEBC"><object 

classid="elsid:D27CDB6E-AE6D-llcf-96B8-444553540000" 

codebase="http://download.macromedia.eom/pub/shoekwave/cabs/flash/swflash.eab#ver 
sion=5, 0,0,0"  width="103"  height="24"> 

<param  name="movie"  value="button2.swf'  /> 

<param  name="quality"  value="high"  /> 

<param  name="bgcolor"  value="#DEDEBC"  /> 

<embed  src="button2.swf'  quality="high" 

pluginspage="http://www.maeromedia.com/shockwave/download/index.cgi?Pl_Prod_Ve 
rsion=ShockwaveFlash"  type="application/x-shockwave-flash"  width="103"  height="24" 
bgcolor="#DEDEBC"></embed> 

</object></td> 

<td  width="14%"  bgeolor="#DEDEBC"><object 

classid="elsid:D27CDB6E-AE6D-llcf-96B8-444553540000" 

codebase="http://download.macromedia.eoin/pub/shoekwave/eabs/flash/swflash.eab#ver 
sion=5,0,0,0"  name="Seareh"  width="100"  height="23"  id="Seareh"> 

<param  name="movie"  value="buttonl.swf'  /> 

<param  name="quality"  value="high"  /> 

<param  name="bgcolor"  value="#DEDEBC"  /> 

<embed  src="buttonl.swf'  width="100"  height="23"  quality="high" 
pluginspage="http://www.maeromedia.coin/shockwave/download/index.cgi?Pl_Prod_Ve 
rsion=ShockwaveFlash"  type="application/x-shockwave-flash"  bgcolor="#DEDEBC" 
name="  Seareh"></embed> 

</object></td> 

<td  width="14%"  bgeolor="#DEDEBC"><object 

classid="elsid:D27CDB6E-AE6D-llcf-96B8-444553540000" 

codebase="http://download.macromedia.eoin/pub/shoekwave/eabs/flash/swflash.eab#ver 
sion=5,0,0,0"  width="100"  height="23"> 

<param  name="movie"  value="button3.swf'  /> 

<param  name="quality"  value="high"  /> 

<param  name="bgcolor"  value="#DEDEBC"  /> 

<embed  src="button3.swf'  quality="high" 

pluginspage="http://www.maeromedia.coin/shockwave/download/index.cgi?Pl_Prod_Ve 
rsion=ShockwaveFlash"  type="application/x-shockwave-flash"  width="100"  height="23" 
bgcolor="#DEDEBC"></embed> 

</object></td> 
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<td  width="14%"  bgcolor="#DEDEBC"><object 

classid="clsid:D27CDB6E-AE6D-llcf-96B8-444553540000" 

codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#ver 
sion=5, 0,0,0"  width="100"  height="23"> 

<param  name="movie"  value="button4.swf'  /> 

<param  name="quality"  value="high"  /> 

<param  name="bgcolor"  value="#DEDEBC"  /> 

<embed  src="button4.swf'  quality="high" 

pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?Pl_Prod_Ve 
rsion=ShockwaveFlash"  type="application/x-shockwave-flash"  width="100"  height="23" 
bgcolor="#DEDEBC"></embed> 

</object></td> 

<td  width="14%"  bgcolor="#DEDEBC"><object 

classid="clsid:D27CDB6E-AE6D-llcf-96B8-444553540000" 

codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#ver 
sion=5,0,0,0"  width="103"  height="24"> 

<param  name="movie"  value="button5.swf'  /> 

<param  name="quality"  value="high"  /> 

<param  name="bgcolor"  value="#DEDEBC"  /> 

<embed  src="button5.swf'  quality="high" 

pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?Pl_Prod_Ve 
rsion=ShockwaveFlash"  type="application/x-shockwave-flash"  width="103"  height="24" 
bgcolor="#DEDEBC"></embed> 

</object></td> 

</tr> 

</table></td> 

</tr> 

<tr> 

<td><hr  />  <h3  align="center">  Update  Subject  Record  </h3> 

<hr  />  <form  ACTION="<%=MM_editAction%>"  METHOD="POST" 
name="frm_Subject"  id="frm_Subject"> 

<table  width="95%"  border="l"  align="  center"  cellpadding="3" 
cellspacing="0"> 

<tr> 

<td  width="24%">Subject  Name  </td> 

<td  width="76%"><input  name="subjectName"  type="text" 
id="subiectName"  value="<%=(rs  subiect.Fields.Item("subiectName").Value)%>" 
size="60"  /></td> 

</tr> 

<tr> 

<td>Subject  Description  </td> 

<td><textarea  name="subjectDescription"  cols="60" 

id="subjectDescription"><%=(rs_subject.Fields.Item("subjectDescription").Value)%></t 
extarea></td> 

</tr> 

<tr> 
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<td><input  name="courseid"  type="hidden"  id="courseid"  value="<% 
Request.QueryStringC'courseid")  %>"  /></td> 

<td><input  type=" submit"  name="Submit"  value="Update"  /></td> 

</tr> 

</table> 

<input  type="hidden"  name="MM_update"  value="frm_Subject"  /> 
<input  type="hidden"  name="MM_recordId"  value="<% 
rs_subject.Fields.Item("subjectid"). Value  %>"> 

</form>  <p  align="left">&nbsp;</p></td> 

</tr> 

<tr> 

<td>&nbsp;  </td> 

</tr> 

</table> 

<p>&nbsp;</p> 

<p>&nbsp;</p> 

<^ody> 

</html> 

<% 

rs_subject.Close() 

Set  rs_subject  =  Nothing 

%> 
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32.  Form_Update_Teach.asp 


<%@LANGUAGE=" VBSCRIPT"  CODEPAGE='T252"%> 

<!— #include  file="Connections/conn_DistanceLeaming.asp"  — > 

<% 

'  ***  Edit  Operations:  declare  variables 

Dim  MMeditAction 
Dim  MMabortEdit 
Dim  MMeditQuery 
Dim  MMeditCmd 

Dim  MMeditConnection 
Dim  MMeditTable 
Dim  MM_editRedirectUrl 
Dim  MM_editColumn 
Dim  MM_recordId 

Dim  MM  fieldsStr 
Dim  MMcolumnsStr 
Dim  MMfields 
Dim  MMcolumns 
Dim  MMtypeArray 
Dim  MM_formVal 
Dim  MM_delim 
Dim  MM_altVal 
Dim  MM_emptyVal 
Dim  MM_i 

MM_editAction  =  CStr(Request.ServerVariables("SCRIPT_NAME")) 

If  (Request.QueryString  <>  "")  Then 

MM_edit  Action  =  MM_edit  Action  &  "?"  & 

Server.HTMLEncode(Request.QueryString) 

End  If 

'  boolean  to  abort  record  edit 
MM_abortEdit  =  false 

'  query  string  to  execute 
MM_editQuery  = "" 

%> 

<% 

'  ***  Update  Record:  set  variables 


281 


If  (CStr(Request("MM_update"))  =  "forml"  And  CStr(Request("MM_recordId")) 
<>  "")  Then 

MMeditConnection  =  MM_conn_DistanceLeaming_STRING 
MM_editTable  =  "Teach" 

MM_editColumn  =  "teachid" 

MM_recordId  =  ""  +  Request.Form("MM_recordId")  +  "" 

MMeditRedirectUrl  =  "FormMasterTeach.asp" 

MM_fieldsStr  =  "professorid|value|courseid|value|room|value" 

MM_coluninsStr  = 

"professorid|none, none, NULL|courseid|none, none, NULL|room|', none,"" 

'  create  the  MM_fields  and  MM_columns  arrays 
MM_fields  =  Split(MM_fieldsStr,  "I") 

MM_columns  =  Split(MM_columnsStr,  "|") 

'  set  the  form  values 

For  MM_i  =  LBound(MM_fields)  To  UBound(MM_fields)  Step  2 
MM_fields(MM_i+l)  =  CStr(Request.Form(MM_fields(MM_i))) 

Next 

'  append  the  query  string  to  the  redirect  URL 

If  (MM  editRedirectUrl  o  ""  And  Request.QueryString  o  "")  Then 
If  (InStr(I,  MM_editRedirectUrI,  "?",  vbTextCompare)  =  0  And 

Request.QueryString  <> "")  Then 

MM_editRedirectUrI  =  MM_editRedirectUrl  &  "?"  &  Request.QueryString 
Else 

MM_editRedirectUrl  =  MM_editRedirectUrl  &  "&"  &  Request.QueryString 
End  If 
End  If 

End  If 

%> 

<% 

'  ***  Update  Record:  construct  a  sql  update  statement  and  execute  it 

If  (CStr(Request("MM_update"))  <>  ""  And  CStr(Request("MM_recordId"))  <> 
"")  Then 


'  create  the  sql  update  statement 

MM_editQuery  =  "update  "  &  MM_editTable  &  "  set " 

For  MM_i  =  LBound(MM_fields)  To  UBound(MM_fields)  Step  2 
MM_formVal  =  MM_fields(MM_i+l) 

MM_typeArray  =  Split(MM_columns(MM_i+l),",") 

MM_delim  =  MM_typeArray(0) 

If  (MM_deIim  =  "none")  Then  MM_delim  =  "" 
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MM_altVal  =  MM_typeArray(l) 

If  (MM_altVal  =  "none")  Then  MM_altVal  =  "" 

MM_emptyVal  =  MM_typeArray(2) 

If  (MM_eniptyVal  =  "none")  Then  MM_eniptyVal  =  "" 

If  (MM  formVal  =  "")  Then 
MM_fomiVal  =  MM_eniptyVal 
Else 

If  (MM_altVal  <>  "")  Then 
MM_formVal  =  MM_aItVaI 
Elself  (MM_delini  =  ""')  Then  '  escape  quotes 
MM_formVaI  =  "'"  &  RepIace(MM_formVaI, ""',""")  &  ""' 

Else 

MM_formVal  =  MM_delim  +  MM_formVal  +  MM_delim 
End  If 
End  If 

If  (MM_i  <>  LBound(MM_fields))  Then 
MM_editQuery  =  MM_editQuery  & 

End  If 

MM_editQuery  =  MM_editQuery  &  MM_columns(MM_i)  &  "  =  "  & 
MM_fomiVal 
Next 

MM_editQuery  =  MM_editQuery  &  "  where  "  &  MM_editColumn  &  "  =  "  & 
MM_recordId 

If  (Not  MM_abortEdit)  Then 
'  execute  the  update 

Set  MM_editCnid  =  Server.  CreateObject("ADODB. Command") 
MMeditCmd.ActiveConnection  =  MMeditConnection 
MMeditCmd.CommandText  =  MMeditQuery 
MM_editCmd.Execute 
MM_editCmd.ActiveConnection.Close 

If  (MM_editRedirectUrl  <>  "")  Then 
Response.Redirect(MM_editRedirectUrl) 

End  If 
End  If 

End  If 

%> 

<% 

Dim  rsteach _ MMColParam 

rs_teach _ MMColParam  =  "7" 

If  (Request.QueryStringC'professorid")  <>  "")  Then 

rsteach _ MMColParam  =  Request.QueryString("professorid") 

End  If 
%> 
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<% 

Dim  rsteach _ ParamCourseid 

rsteach _ ParamCourseid  =  "4" 

If  (Request.QueryStringC'courseid")  <>  "")  Then 

rs_teach _ ParamCourseid  =  Request.QueryStringC'courseid") 

End  If 
%> 

<% 

Dim  rs_teach 

Dim  rs_teach_numRows 

Set  rs  teach  =  Server.CreateObject("ADODB.Recordset") 
rs_teach.ActiveConnection  =  MM_conn_DistanceLeaming_STRING 
rs_teach. Source  =  "SELECT  *  FROM  Teach  WHERE  professorid  =  "  + 

Replace(rs_teach _ MMCoIParam,  """)  +  "  AND  courseid  =  "  + 

Replace(rs_teach _ ParamCourseid, """)  +  "" 

rs_teach.CursorType  =  0 
rs_teach.CursorLocation  =  2 
rsteach.LockType  =  I 
rs_teach.Open() 

rsteachnumRows  =  0 

%> 

<!DOCTYPE  html  PUBLIC  "-//W3C//DTD  XHTML  1.0  TransitionaI//EN" 
"http://www.w3  .org/TR/xhtml  I/DTD/xhtml  I  -transitionaI.dtd"> 

<html  xmlns="http  ://www. w3  .org/ 1 999/xhtmI"> 

<head> 

<titIe>Distance  Learning:  Update&quot;Teach&quot;Record</titIe> 

<meta  http-equiv="Content-Type"  content="text/htmI;  charset=iso-8859-I"  /> 
<Iink  href="DLStyIesheet.css"  rel="stylesheet"  type="text/css"  /> 

<style  type="text/css"> 

<!- 
a:  link  { 

color:  #CC3300; 

} 

a:visited  { 

color:  #CC3399; 

} 

a:hover  { 

color:  #000066; 

} 

a:  active  { 

color:  #339900; 

} 

— > 

</styIe></head> 
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<body> 

<table  width="95%"  height="214"  border="0"  align="center"  cellpadding="3" 
cellspacing="0"> 

<tr> 

<td  height="109"><table  width="100%"  border="0"  align="left" 
cellpadding="3"  cellspacing="0"  bgcolor="#DEDEBC"> 

<tr> 

<td  width="88%"  align="  center"  valign="middle" 

bgcolor="#DEDEBC"><img  src="Images/nps_banner.gif'  width="447"  height="97"  /> 

</td> 

</tr> 

</table></td> 

</tr> 

<tr> 

<td  height="50"><table  width="72%"  border="0"  align="center" 
cellpadding="3"  cellspacing="0"  bordercolor="#F6F6F3"> 

<tr> 

<td  width="14%"  bgcolor="#DEDEBC"><object 

classid="clsid:D27CDB6E-AE6D-llcf-96B8-444553540000" 

codebase="http://download.macromedia.coin/pub/shockwave/cabs/flash/swflash.cab#ver 
sion=5, 0,0,0"  width="103"  height="24"> 

<param  name="movie"  value="button2.swf'  /> 

<param  name="quality"  value="high"  /> 

<param  name="bgcolor"  value="#DEDEBC"  /> 

<embed  src="button2.swf'  quality="high" 

pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?Pl_Prod_Ve 
rsion=ShockwaveFlash"  type="application/x-shockwave-flash"  width="103"  height="24" 
bgcolor="#DEDEBC"></embed> 

</object></td> 

<td  width="14%"  bgcolor="#DEDEBC"><object 

classid="clsid:D27CDB6E-AE6D-llcf-96B8-444553540000" 

codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#ver 
sion=5,0,0,0"  name=" Search"  width="100"  height="23"  id="Search"> 

<param  name="movie"  value="buttonl.swf'  /> 

<param  name="quality"  value="high"  /> 

<param  name="bgcolor"  value="#DEDEBC"  /> 

<embed  src="buttonl.swf'  width="100"  height="23"  quality="high" 
pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?Pl_Prod_Ve 
rsion=ShockwaveFlash"  type="application/x-shockwave-flash"  bgcolor="#DEDEBC" 
name="  Search"></embed> 

</object></td> 

<td  width="14%"  bgcolor="#DEDEBC"><object 

classid="clsid:D27CDB6E-AE6D-llcf-96B8-444553540000" 

codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#ver 
sion=5,0,0,0"  width="100"  height="23"> 

<param  name="movie"  value="button3.swf'  /> 
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<param  name="quality"  value="high"  /> 

<param  name="bgcolor"  value="#DEDEBC"  /> 

<embed  src="button3.swf'  quality="high" 

pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?Pl_Prod_Ve 
rsion=ShockwaveFlash"  type="application/x-shockwave-flash"  width="100"  height="23" 
bgcolor="#DEDEBC"></embed> 

</object></td> 

<td  width="14%"  bgcolor="#DEDEBC"><object 

classid="clsid:D27CDB6E-AE6D-llcf-96B8-444553540000" 

codebase="htq)://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#ver 
sion=5, 0,0,0"  width="100"  height="23"> 

<param  name="movie"  value="button4.swf'  /> 

<param  name="quality"  value="high"  /> 

<param  name="bgcolor"  value="#DEDEBC"  /> 

<embed  src="button4.swf'  quality="high" 

pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?Pl_Prod_Ve 
rsion=ShockwaveFlash"  type="application/x-shockwave-flash"  width="100"  height="23" 
bgcolor="#DEDEBC"></embed> 

</object></td> 

<td  width="14%"  bgcolor="#DEDEBC"><object 

classid="clsid:D27CDB6E-AE6D-llcf-96B8-444553540000" 

codebase="htq?://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#ver 
sion=5,0,0,0"  width="103"  height="24"> 

<param  name="movie"  value="button5.swf'  /> 

<param  name="quality"  value="high"  /> 

<param  name="bgcolor"  value="#DEDEBC"  /> 

<embed  src="button5.swf'  quality="high" 

pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?Pl_Prod_Ve 
rsion=ShockwaveFlash"  type="application/x-shockwave-flash"  width="103"  height="24" 
bgcolor="#DEDEBC"></embed> 

</object></td> 

</tr> 

</table></td> 

</tr> 

<tr> 

<td><hr  />  <h3  align="center">  Update  &quot;Teach&quot;  Record  </h3> 
<hr/> 

<form  name="formr'  id="forml"  method="POST" 

action="<%=MM_editAction%>"> 

<table  width="95%"  border="l"  align="  center"  cellpadding="3" 
cellspacing="0"> 

<tr> 

<td>Professor  ID  </td> 

<td><input  name="professorid"  type="text"  id="professorid" 
value="<%=(rs_teach.Fields.Item("professorid").Value)%>"  /></td> 

</tr> 
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<tr> 

<td>Course  ID  </td> 

<td><input  name="courseid"  type="text" 
value="<%=(rs_teach.Fields.Item("courseid").Value)%>"  /></td> 

</tr> 

<tr> 

<td>Room</td> 

<td><input  name="room"  type="text" 

value="<%=(rs_teach.Fields.Item("room").Value)%>"  /></td> 

</tr> 

<tr> 

<td>&nbsp  ;</td> 

<td><input  type=" submit"  name="Submit"  value=" Submit" 
</tr> 

</table> 


<input  type="hidden"  name="MM_update"  value="forml"> 
<input  type="hidden"  name="MM_recordId" 
rs_teach.Fields.Item("teachid"). Value  %>"> 

</form>  <p  align="lefl">&nbsp;</p></td> 

</tr> 

<tr> 

<td>&nbsp;  </td> 

</tr> 

</table> 

<p>&nbsp;</p> 

<p>&nbsp;</p> 

<^ody> 

</html> 

<% 

rs_teach.Close() 

Set  rs_teach  =  Nothing 

%> 


id="courseid" 


id="room" 


/></td> 


value="<%= 
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33.  Form_Update_Topic.asp 


<%@LANGUAGE=" VBSCRIPT"  CODEPAGE='T252"%> 

<!— #include  file="Connections/conn_DistanceLeaming.asp"  — > 

<% 

'  ***  Restrict  Access  To  Page:  Grant  or  deny  access  to  this  page 
MM_authorizedUsers="admin, professor" 

MM_authFailedURL="  login,  asp" 

MM_grantAccess=false 
If  Session("MM_Usemame")  <>  ""  Then 
If  (false  Or  CStr(Session("MM_UserAuthorization"))="")  Or  _ 

(InStr(l,MM_authorizedUsers,Session("MM_UserAuthorization"))>=l) 

Then 

MM_grantAccess  =  true 
End  If 
End  If 

If  Not  MM_grantAccess  Then 
MM_qsChar  =  "?" 

If  (InStr(l,MM_authFailedURL,"?")  >=  1)  Then  MM  qsChar  =  "&" 
MM_referrer  =  Request.  ServerVariables("URL") 

if  (Len(Request.QueryString())  >  0)  Then  MM_referrer  =  MM_referrer  &  "?"  & 
Request.QueryStringO 

MM_authFailedURL  =  MM_authFailedURL  &  MM_qsChar  &  "accessdenied=" 
&  Server.URLEncode(MM_referrer) 

Response.Redirect(MM_authFailedURL) 

End  If 

%> 

<% 

'  ***  Edit  Operations:  declare  variables 

Dim  MMeditAction 
Dim  MMabortEdit 
Dim  MMeditQuery 
Dim  MM_editCmd 

Dim  MM_editConnection 
Dim  MM_editTable 
Dim  MMeditRedirectUrl 
Dim  MMeditColumn 
Dim  MM_recordId 

Dim  MMfieldsStr 
Dim  MMcolumnsStr 
Dim  MM_fields 
Dim  MM  columns 
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Dim  MMtypeArray 
Dim  MMformVal 
Dim  MMdelim 
Dim  MMaltVal 
Dim  MM_emptyVal 
Dim  MM_i 

MM_editAction  =  CStr(Request.ServerVariables("SCRIPT_NAME")) 

If  (Request.QueryString  <>  "")  Then 

MM_edit  Action  =  MM_edit  Action  &  "?"  & 

Server.HTMLEncode(Request.QueryString) 

End  If 

'  boolean  to  abort  record  edit 
MM_abortEdit  =  false 

'  query  string  to  execute 
MM_editQuery  = "" 

%> 

<% 

'  ***  Update  Record:  set  variables 

If  (CStr(Request("MM_update"))  =  "formi"  And  CStr(Request("MM_recordId")) 
<>  "")  Then 

MMeditConnection  =  MM_conn_DistanceLeaming_STRING 
MM_editTable  =  "Topic" 

MM_editColumn  =  "topicid" 

MM_recordId  =  ""  +  Request.Form("MM_recordId")  +  "" 

MMeditRedirectUrl  =  "Form_Topic_Master.asp" 

MM_fieldsStr  =  "topicName|value|topicDescription|value" 

MM_columnsStr  =  "topicName|', none, "|topicDescription|', none,"" 

'  create  the  MM_fieIds  and  MM_columns  arrays 
MM_fields  =  Split(MM_fieldsStr,  "I") 

MM_columns  =  Split(MM_columnsStr,  "|") 

'  set  the  form  values 

For  MM_i  =  LBound(MM_fields)  To  UBound(MM_fields)  Step  2 
MM_fields(MM_i+l)  =  CStr(Request.Form(MM_fields(MM_i))) 

Next 

'  append  the  query  string  to  the  redirect  URL 

If  (MM  editRedirectUrl  <>  ""  And  Request.QueryString  <>  "")  Then 
If  (InStr(I,  MM_editRedirectUrl,  "?",  vbTextCompare)  =  0  And 

Request.QueryString  <>  "")  Then 
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MM_editRedirectUrl  =  MM_editRedirectUrl  &  "?"  &  Request.  Query  String 
Else 

MM_editRedirectUrl  =  MM_editRedirectUrl  &  "&"  &  Request.QueryString 
End  If 
End  If 

End  If 

%> 

<% 

'  ***  Update  Record:  construct  a  sql  update  statement  and  execute  it 

If  (CStr(Request("MM_update"))  <>  ""  And  CStr(Request("MM_recordId"))  <> 
"")  Then 


'  create  the  sql  update  statement 

MM_editQuery  =  "update  "  &  MM_editTable  &  "  set " 

For  MM_i  =  LBound(MM_fields)  To  UBound(MM_fields)  Step  2 
MM_formVal  =  MM_fields(MM_i+l) 

MM_typeArray  =  Split(MM_columns(MM_i+l),",") 

MM_delim  =  MM_typeArray(0) 

If  (MM_deIim  =  "none")  Then  MM_delim  =  "" 

MM_ahVaI  =  MM_typeArray(I) 

If  (MM_aItVaI  =  "none")  Then  MM_aItVaI  =  "" 

MM_emptyVal  =  MM_typeArray(2) 

If  (MM_emptyVaI  =  "none")  Then  MM_emptyVaI  =  "" 

If  (MM_formVal  =  "")  Then 
MM_formVaI  =  MM_emptyVaI 
Else 

If  (MM_aItVaI  <>  "")  Then 
MM_formVal  =  MM_aItVaI 
Elself  (MM_deIim  =  ""')  Then  '  escape  quotes 
MM_formVaI  =  ""'  &  RepIace(MM_formVaI, ""',""")  &  ""' 

Else 

MM_formVaI  =  MM_delim  +  MM_formVal  +  MM_deIim 
End  If 
End  If 

If  (MM_i  <>  LBound(MM_fieIds))  Then 
MM_editQuery  =  MM_editQuery  & 

End  If 

MM_editQuery  =  MM_editQuery  &  MM_coIumns(MM_i)  &  "  =  "  & 
MM_formVaI 
Next 

MM_editQuery  =  MM_editQuery  &  "  where  "  &  MM_editCoIumn  &  "  =  "  & 
MM_recordId 

If  (Not  MM_abortEdit)  Then 
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'  execute  the  update 

Set  MM_editCmd  =  Server.  CreateObject("ADODB. Command") 
MMeditCmd.ActiveConnection  =  MMeditConnection 
MMeditCmd.CommandText  =  MMeditQuery 
MM_editCmd.Execute 
MM_editCmd.ActiveConnection.Close 

If  (MM_editRedirectUrl  <>  "")  Then 
Response.Redirect(MM_editRedirectUrl) 

End  If 
End  If 

End  If 

%> 

<% 

Dim  rs_subject _ MMCoIParam 

rs_subject _ MMCoIParam  =  "I" 

If  (Request.QueryStringC'subjectid")  <>  "")  Then 

rs_subject _ MMCoIParam  =  Request.QueryStringC'subjectid") 

End  If 
%> 

<% 

Dim  rssubject 

Dim  rssubjectnumRows 

Set  rs  subject  =  Server.CreateObject("ADODB.Recordset") 
rs_subject.ActiveConnection  =  MM_conn_DistanceLeaming_STRING 
rs  subject. Source  =  "SELECT  *  FROM  Subject  WHERE  subjectid  =  "  + 

Replace(rs_subject _ MMCoIParam, """)  +  "" 

rs_subject.CursorType  =  0 
rs_subject.CursorLocation  =  2 
rs_subject.LockType  =  I 
rs_subj  ect.  Open() 

rs_subject_numRows  =  0 

%> 

<% 

Dim  rs_topic _ MMCoIParam 

rs_topic _ MMCoIParam  =  "  1 " 

If  (Request.QueryStringC'topicid")  <>  "")  Then 

rstopic _ MMCoIParam  =  Request.QueryStringC'topicid") 

End  If 
%> 

<% 

Dim  rs_topic 

Dim  rs_topic_nuniRows 
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Set  rs_topic  =  Server.CreateObject("ADODB. Recordset") 
rs_topic.ActiveConnection  =  MMconnDistanceLeamingSTRING 
rs_topic. Source  =  "SELECT  *  FROM  Topic  WHERE  topicid  =  "  + 

Replace(rs_topic _ MMColParam,  """)  +  "" 

rs_topic.CursorType  =  0 
rs_topic.CursorLocation  =  2 
rs_topic.LockType  =  1 
rs_topic.Open() 

rs_topic_numRows  =  0 

%> 

<!DOCTYPE  html  PUBLIC  "-//W3C//DTD  XHTML  1.0  Transitional//EN" 
"http://www.w3  .org/TR/xhtml  1 /DTD/xhtml  1  -transitional.dtd"> 

<html  xmlns="http  ://www. w3  .org/ 1 999/xhtml"> 

<head> 

<title>Distance  Learning:  Update  Topic</title> 

<meta  http-equiv="Content-Type"  content="text/html;  charset=iso-8859-l"  /> 
<link  href="DLStylesheet.css"  rel="stylesheet"  type="text/css"  /> 

<style  type="text/css"> 

<!- 
a:  link  { 

color:  #CC3300; 

} 

a:visited  { 

color:  #CC3399; 

} 

a:hover  { 

color:  #000066; 

} 

a:  active  { 

color:  #339900; 

} 

— > 

</style> 

<script  language="JavaScript"  type="text/JavaScript"> 

<!- 

function  MM_findObj(n,  d)  {  //v4.01 

var  p,i,x;  if(!d)  d=document;  if((p=n.indexOf("?"))>0&&parent.frames. length) 

{ 

d=parent.frames[n.substring(p+ 1 )]  .document;  n=n.substring(0,p); } 
if(!(x=d[n])&&d.all)  x=d.all[n];  for  (i=0;!x&&i<d.forms.length;i++) 
x=d.  forms  [i][n]; 

for(i=0;!x&&d.layers&&i<d.layers.length;i++) 
x=MM_fmdObj  (n,d-  lay  ers  [i]  .document) ; 

if(!x  &&  d.getElementByld)  x=d.getElementById(n);  return  x; 
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} 

function  MM_validateForm()  { //v4.0 

var  i,p,q,nm, test, num, min, max, errors=",args=MM_validateForm.arguments; 
for  (i=0;  i<(args. length-2);  i+=3)  { test=args[i+2];  val=MM_findObj(args[i]); 
if  (val)  {  nm=val.name;  if  ((val=val.value)!="")  { 
if  (test.indexOf('isEmail')!=-l)  { p=val.indexOf('@'); 
if  (p<l  II  p==(val.length-l))  errors+='-  '+nm+'  must  contain  an  e-mail 

address.W; 

}  else  if  (test!='R')  {  num  =  parseFloat(val); 
if  (isNaN(val))  errors+='-  '+nm+'  must  contain  a  number.\n'; 
if  (test.indexOf('inRange')  !=  -1)  {  p=test.indexOf(':'); 
min=test .  substring(  8  ,p) ;  max=test.  substring(p+ 1 ) ; 

if  (num<min  ||  max<num)  errors+='-  '+nm+'  must  contain  a  number 
between  '+min+'  and  '+max+'.\n'; 

}  }  }  else  if  (test.charAt(O)  ==  'R')  errors  +=  '-  '+nm+'  is  requiredAn';  } 

}  if  (errors)  alert('The  following  error(s)  occurred:\n'+errors); 
document. MM_retumValue  =  (errors  ==  "); 

} 

//-> 

</script> 

</head> 

<body> 

<table  width="95%"  height="214"  border="0"  align="center"  cellpadding="3" 
cellspacing="0"> 

<tr> 

<td  height="109"><table  width="100%"  border="0"  align="left" 
cellpadding="3"  cellspacing="0"  bgcolor="#DEDEBC"> 

<tr> 

<td  width="88%"  align="  center"  valign="middle" 

bgcolor="#DEDEBC"><img  src="Images/nps_banner.gif'  width="447"  height="97"  /> 

</td> 

</tr> 

</table></td> 

</tr> 

<tr> 

<td  height="50"><table  width="72%"  border="0"  align="center" 
cellpadding="3"  cellspacing="0"  bordercolor="#F6F6F3"> 

<tr> 

<td  width="14%"  bgcolor="#DEDEBC"><object 

classid="clsid:D27CDB6E-AE6D-llcf-96B8-444553540000" 

codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#ver 
sion=5, 0,0,0"  width="103"  height="24"> 

<param  name="movie"  value="button2.swf'  /> 

<param  name="quality"  value="high"  /> 

<param  name="bgcolor"  value="#DEDEBC"  /> 
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<embed  src="button2.swf'  quality="high" 

pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?Pl_Prod_Ve 
rsion=ShockwaveFlash"  type="application/x-shockwave-flash"  width="103"  height="24" 
bgcolor="#DEDEBC"></embed> 

</object></td> 

<td  width="14%"  bgcolor="#DEDEBC"><object 

classid="clsid:D27CDB6E-AE6D-llcf-96B8-444553540000" 

codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#ver 
sion=5, 0,0,0"  name=" Search"  width="100"  height="23"  id="Search"> 

<param  name="movie"  value="buttonl.swf'  /> 

<param  name="quality"  value="high"  /> 

<param  name="bgcolor"  value="#DEDEBC"  /> 

<embed  src="buttonl.swf'  width="100"  height="23"  quality="high" 
pluginspage="http://www.macromedia.coiii/shockwave/download/index.cgi?Pl_Prod_Ve 
rsion=ShockwaveFlash"  type="application/x-shockwave-flash"  bgcolor="#DEDEBC" 
name="  Search"></embed> 

</object></td> 

<td  width="14%"  bgcolor="#DEDEBC"><object 

classid="clsid:D27CDB6E-AE6D-llcf-96B8-444553540000" 

codebase="htq)://download.macromedia.coiii/pub/shockwave/cabs/flash/swflash.cab#ver 
sion=5,0,0,0"  width="100"  height="23"> 

<param  name="movie"  value="button3.swf'  /> 

<param  name="quality"  value="high"  /> 

<param  name="bgcolor"  value="#DEDEBC"  /> 

<embed  src="button3.swf'  quality="high" 

pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?Pl_Prod_Ve 
rsion=ShockwaveFlash"  type="applicatioii/x-shockwave-flash"  width="100"  height="23" 
bgcolor="#DEDEBC"></embed> 

</object></td> 

<td  width="14%"  bgcolor="#DEDEBC"><object 

classid="clsid:D27CDB6E-AE6D-llcf-96B8-444553540000" 

codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#ver 
sion=5,0,0,0"  width="100"  height="23"> 

<param  name="movie"  value="button4.swf '  /> 

<param  name="quality"  value="high"  /> 

<param  name="bgcolor"  value="#DEDEBC"  /> 

<embed  src="button4.swf'  quality="high" 

pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?Pl_Prod_Ve 
rsion=ShockwaveFlash"  type="applicatioii/x-shockwave-flash"  width="100"  height="23" 
bgcolor="#DEDEBC"></embed> 

</object></td> 

<td  width="14%"  bgcolor="#DEDEBC"><object 

classid="clsid:D27CDB6E-AE6D-llcf-96B8-444553540000" 

codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#ver 
sion=5,0,0,0"  width="103"  height="24"> 

<param  name="movie"  value="button5.swf'  /> 
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<param  name="quality"  value="high"  /> 

<param  name="bgcolor"  value="#DEDEBC"  /> 

<embed  src="button5.swf'  quality="high" 

pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?Pl_Prod_Ve 
rsion=ShockwaveFlash"  type="application/x-shockwave-flash"  width="103"  height="24" 
bgcolor="#DEDEBC"></embed> 

</object></td> 

</tr> 

</table></td> 

</tr> 

<tr> 

<td><hr  />  <h3  align="center">  Update  Topic  Record  </h3> 

<hr/> 

<form  name="formr'  id="forml"  method="POST" 

action="<%=MM_editAction%>"> 

<table  width="95%"  border='T"  align="  center"  cellpadding="3" 

cellspacing="0"> 

<tr> 

<td  width="24%">Topic  Name  </td> 

<td  width="76%"><input  name="topicName"  type="text" 
id="topicName"  value="<%=(rs_topic.Fields.Item("topicName").Value)%>"  size="60" 

/></td> 

</tr> 

<tr> 

<td>Topic  Description  </td> 

<td><textarea  name="topicDescription"  cols="60" 

id="topicDescription"><%=(rs_topic.Fields.Item("topicDescription").Value)%></textare 

a></td> 

</tr> 

<tr> 

<td><input  name="subjectid"  type="hidden"  id="subjectid"  value="<%= 
Request.QueryStringC'subjectid")  %>"  /></td> 

<td><input  name="Submit"  type="submit" 

onclick="MM_validateForm('topicNameV','R','topicDescriptionV','R');retum 
document.MM  retumValue"  value=" Submit"  /></td> 

</tr> 

</table> 


<input  type="hidden"  name="MM_update"  value="forml"> 

<input  type="hidden"  name="MM_recordId"  value="<%= 
rs_topic.Fields.Item("topicid"). Value  %>"> 

</form>  <p  align="left">&nbsp;</p></td> 

</tr> 

<tr> 

<td>&nbsp;  </td> 

</tr> 
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</table> 

<p>&nbsp;</p> 

<p>&nbsp;</p> 

</body> 

</html> 

<% 

rs_subject.Close() 

Set  rs_subject  =  Nothing 

%> 

<% 

rs_topic.Close() 

Set  rs_topic  =  Nothing 


34.  Form_Update_User.asp 


<%@LANGUAGE=" VBSCRIPT"  CODEPAGE='T252"%> 

<!— #include  file="Connections/conn_DistanceLeaming.asp"  — > 

<% 

'  ***  Restrict  Access  To  Page:  Grant  or  deny  access  to  this  page 
MM_authorizedUsers="  admin" 

MM_authFailedURL="  login,  asp" 

MM_grantAccess=false 
If  Session("MM_Usemame")  <>  ""  Then 
If  (false  Or  CStr(Session("MM_UserAuthorization"))="")  Or  _ 

(InStr(l,MM_authorizedUsers,Session("MM_UserAuthorization"))>=l) 

Then 

MM_grantAccess  =  true 
End  If 
End  If 

If  Not  MM_grantAccess  Then 
MM_qsChar  =  "?" 

If  (InStr(l,MM_authFailedURL,"?")  >=  1)  Then  MM  qsChar  =  "&" 
MM_referrer  =  Request.  ServerVariables("URL") 

if  (Len(Request.QueryString())  >  0)  Then  MM_referrer  =  MM_referrer  &  "?"  & 
Request.QueryStringO 

MM_authFailedURL  =  MM_authFailedURL  &  MM_qsChar  &  "accessdenied=" 
&  Server.URLEncode(MM_referrer) 

Response.Redirect(MM_authFailedURL) 

End  If 

%> 

<% 

'  ***  Edit  Operations:  declare  variables 

Dim  MMeditAction 
Dim  MMabortEdit 
Dim  MMeditQuery 
Dim  MM_editCmd 

Dim  MM_editConnection 
Dim  MM_editTable 
Dim  MMeditRedirectUrl 
Dim  MMeditColumn 
Dim  MM_recordId 

Dim  MMfieldsStr 
Dim  MMcolumnsStr 
Dim  MM_fields 
Dim  MM  columns 


297 


Dim  MMtypeArray 
Dim  MMformVal 
Dim  MMdelim 
Dim  MMaltVal 
Dim  MM_emptyVal 
Dim  MM_i 

MM_editAction  =  CStr(Request.ServerVariables("SCRIPT_NAME")) 

If  (Request.QueryString  <>  "")  Then 

MM_edit  Action  =  MM_edit  Action  &  "?"  & 

Server.HTMLEncode(Request.QueryString) 

End  If 

'  boolean  to  abort  record  edit 
MM_abortEdit  =  false 

'  query  string  to  execute 
MM_editQuery  = "" 

%> 

<% 

'  ***  Update  Record:  set  variables 

If  (CStr(Request("MM_update"))  =  "formi"  And  CStr(Request("MM_recordId")) 
<>  "")  Then 

MMeditConnection  =  MM_conn_DistanceLeaming_STRING 
MM_editTable  =  "User" 

MM_editColumn  =  "userid" 

MM_recordId  =  ""  +  Request.Form("MM_recordId")  +  "" 

MMeditRedirectUrl  =  "FormMasterUser.asp" 

MM_fieldsStr 

"firstName|value|IastName|vaIue|officePhone|value|officeRoom|value|emaiI|vaIue|userNa 

me|value|password|value|userGroup|value" 

MM_columnsStr  = 

"firstNamel', none, "|lastName|', none, "|officephone|', none, "|officeRoom|', none, "|email|', non 
e,"|userName|',none,"|password|',none,"|userGroup|',none,"" 

'  create  the  MM_fieIds  and  MM_columns  arrays 
MM_fields  =  Split(MM_fieldsStr,  "I") 

MM_columns  =  Split(MM_columnsStr,  "|") 

'  set  the  form  values 

For  MM_i  =  LBound(MM_fields)  To  UBound(MM_fields)  Step  2 
MM_fields(MM_i+l)  =  CStr(Request.Form(MM_fields(MM_i))) 

Next 
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'  append  the  query  string  to  the  redirect  URL 

If  (MMeditRedirectUrl  o  ""  And  Request.QueryString  o  "")  Then 
If  (InStr(I,  MM_editRedirectUrI,  vbTextCompare)  =  0  And 

Request.QueryString  <> "")  Then 

MM_editRedirectUrI  =  MM_editRedirectUrI  &  "?"  &  Request.QueryString 
Else 

MM_editRedirectUrI  =  MM_editRedirectUrI  &  "&"  &  Request.QueryString 
End  If 
End  If 

End  If 

%> 

<% 

'  ***  Update  Record:  construct  a  sql  update  statement  and  execute  it 

If  (CStr(Request("MM_update"))  <>  ""  And  CStr(Request("MM_recordId"))  <> 
"")  Then 


'  create  the  sql  update  statement 

MM_editQuery  =  "update  "  &  MM_editTabIe  &  "  set " 

For  MM_i  =  LBound(MM_fieIds)  To  UBound(MM_fieIds)  Step  2 
MM_formVaI  =  MM_fieIds(MM_i+l) 

MM_typeArray  =  SpIit(MM_coIumns(MM_i+I),",'') 

MM_deIim  =  MM_typeArray(0) 

If  (MM_deIim  =  "none")  Then  MM_deIim  =  "" 

MM_aItVaI  =  MM_typeArray(I) 

If  (MM_aItVaI  =  "none")  Then  MM_aItVaI  =  "" 

MM_emptyVaI  =  MM_typeArray(2) 

If  (MM_emptyVaI  =  "none")  Then  MM_emptyVaI  =  "" 

If  (MM  formVal  =  "")  Then 
MM_formVaI  =  MM_emptyVaI 
Else 

If  (MM_aItVaI  <>  "")  Then 
MM_formVaI  =  MM_aItVaI 
Elself  (MM_deIim  =  ""')  Then  '  escape  quotes 
MM_formVaI  =  ""'  &  RepIace(MM_formVaI, ""',""")  &  ""' 

Else 

MM_formVaI  =  MM_deIim  +  MM_formVaI  +  MM_deIim 
End  If 
End  If 

If  (MM_i  <>  LBound(MM_fieIds))  Then 
MM_editQuery  =  MM_editQuery  & 

End  If 

MM_editQuery  =  MM_editQuery  &  MM_coIumns(MM_i)  &  "  =  "  & 
MM_formVaI 
Next 
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MM_editQuery  =  MM_editQuery  &  "  where  "  &  MM_editColumn  &  "  =  "  & 
MM_recordId 

If  (Not  MM_abortEdit)  Then 
'  exeeute  the  update 

Set  MM_editCmd  =  Server.  CreateObjeet("ADODB. Command") 
MMeditCmd.ActiveConnection  =  MMeditConnection 
MMeditCmd.CommandText  =  MMeditQuery 
MM_editCmd.Execute 
MM_editCmd.AetiveConneetion.Close 

If  (MM_editRedireetUrI  <>  "")  Then 
Response.Redireet(MM_editRedireetUrI) 

End  If 
End  If 

End  If 

%> 

<% 

Dim  rs_user _ MMCoIParam 

rsuser _ MMCoIParam  =  "  I " 

If  (Request.QueryStringC'userid")  <>  "")  Then 

rs_user _ MMCoIParam  =  Request.QueryStringC'userid") 

End  If 
%> 

<% 

Dim  rs_user 

Dim  rs_user_numRows 

Set  rs  user  =  Server.CreateObjeet("ADODB.Reeordset") 
rsuser.ActiveConneetion  =  MMeonnDistaneeLeamingSTRING 
rs_user.Source  =  "SELECT  *  FROM  User  WHERE  userid  =  "  + 

Replaee(rs_user _ MMCoIParam, """)  +  "" 

rs_user.CursorType  =  0 
rs_user.CursorLoeation  =  2 
rs_user.LoekType  =  I 
rs_user.Open() 

rs_user_numRows  =  0 

%> 

<!DOCTYPE  html  PUBLIC  "-//W3C//DTD  XHTML  I.O  TransitionaI//EN" 
"http://www.w3  .org/TR/xhtml  I/DTD/xhtml  I  -transitionaI.dtd"> 

<html  xmIns="http://www.w3.org/I999/xhtmI"> 

<head> 

<titIe>Distance  Learning:  Update  User  Form</titIe> 

<meta  http-equiv="Content-Type"  eontent="text/htmI;  charset=iso-8859-I"  /> 
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<link  href="DLStylesheet.css"  rel="stylesheet"  type="text/css"  /> 

<style  type="text/css"> 

<!- 
a:  link  { 

color:  #CC3300; 

} 

aivisited  { 

color:  #CC3399; 

} 

a:hover  { 

color:  #000066; 

} 

a:  active  { 

color:  #339900; 

} 

— > 

</style></head> 

<body> 

<table  width="95%"  height="214"  border="0"  align="center"  cellpadding="3" 
cellspacing="0"> 

<tr> 

<td  height="109"><table  width="100%"  border="0"  align="lefl" 
cellpadding="3"  cellspacing="0"  bgcolor="#DEDEBC"> 

<tr> 

<td  width="88%"  align="  center"  valign="niiddle" 

bgcolor="#DEDEBC"><img  sre="Images/nps_banner.gif'  width="447"  height="97"  /> 

</td> 

</tr> 

</table></td> 

</tr> 

<tr> 

<td  height="50"><table  width="72%"  border="0"  align="eenter" 
cellpadding="3"  eellspaeing="0"  bordereolor="#F6F6F3"> 

<tr> 

<td  width="14%"  bgeolor="#DEDEBC"><object 

classid="elsid:D27CDB6E-AE6D-llcf-96B8-444553540000" 

codebase="http://download.macromedia.eoni/pub/shoekwave/eabs/flash/swflash.eab#ver 
sion=5, 0,0,0"  width="103"  height="24"> 

<param  nanie="movie"  value="button2.swf'  /> 

<param  name="quality"  value="high"  /> 

<param  nanie="bgcolor"  value="#DEDEBC"  /> 

<embed  src="button2.swf'  quality="high" 

pluginspage="http://www.maeroniedia.coni/shockwave/download/index.cgi?Pl_Prod_Ve 
rsion=ShockwaveFlash"  type="application/x-shockwave-flash"  width="103"  height="24" 
bgcolor="#DEDEBC"></embed> 

</object></td> 
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<td  width="14%"  bgcolor="#DEDEBC"><object 

classid="clsid:D27CDB6E-AE6D-llcf-96B8-444553540000" 

codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#ver 
sion=5, 0,0,0"  name=" Search"  width="100"  height="23"  id="Search"> 

<param  name="movie"  value="buttonEswf'  /> 

<param  name="quality"  value="high"  /> 

<param  name="bgcolor"  value="#DEDEBC"  /> 

<embed  src="buttonLswf'  width="100"  height="23"  quality="high" 
pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?Pl_Prod_Ve 
rsion=ShockwaveFlash"  type="application/x-shockwave-flash"  bgcolor="#DEDEBC" 
name="  Search"></embed> 

</object></td> 

<td  width="14%"  bgcolor="#DEDEBC"><object 

classid="clsid:D27CDB6E-AE6D-llcf-96B8-444553540000" 

codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#ver 
sion=5,0,0,0"  width="100"  height="23"> 

<param  name="movie"  value="button3.swf'  /> 

<param  name="quality"  value="high"  /> 

<param  name="bgcolor"  value="#DEDEBC"  /> 

<embed  src="button3.swf'  quali1y="high" 

pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?Pl_Prod_Ve 
rsion=ShockwaveFlash"  type="applicatioii/x-shockwave-flash"  width="100"  height="23" 
bgcolor="#DEDEBC"></embed> 

</object></td> 

<td  width="14%"  bgcolor="#DEDEBC"><object 

classid="clsid:D27CDB6E-AE6D-llcf-96B8-444553540000" 

codebase="http://download.macromedia.coiii/pub/shockwave/cabs/flash/swflash.cab#ver 
sion=5,0,0,0"  width="100"  height="23"> 

<param  name="movie"  value="button4.swf'  /> 

<param  name="quality"  value="high"  /> 

<param  name="bgcolor"  value="#DEDEBC"  /> 

<embed  src="button4.swf'  quality="high" 

pluginspage="http://www.macromedia.coiii/shockwave/download/index.cgi?Pl_Prod_Ve 
rsion=ShockwaveFlash"  type="application/x-shockwave-flash"  width="100"  height="23" 
bgcolor="#DEDEBC"></embed> 

</object></td> 

<td  width="14%"  bgcolor="#DEDEBC"><object 

classid="clsid:D27CDB6E-AE6D-llcf-96B8-444553540000" 

codebase="http://download.macromedia.coiii/pub/shockwave/cabs/flash/swflash.cab#ver 
sion=5,0,0,0"  width="103"  height="24"> 

<param  name="movie"  value="button5.swf'  /> 

<param  name="quality"  value="high"  /> 

<param  name="bgcolor"  value="#DEDEBC"  /> 

<embed  src="button5.swf'  quality="high" 

pluginspage="http://www.macromedia.coin/shockwave/download/index.cgi?Pl_Prod_Ve 
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rsion=ShockwaveFlash"  type="application/x-shockwave-flash"  width="103"  height="24" 
bgcolor="#DEDEBC"></embed> 

</object></td> 

</tr> 

</table></td> 

</tr> 

<tr> 

<td><hr  />  <h3  align="center">  Update  User  Record  </h3> 

<hr/> 

<fomi  name="forml"  id="forml"  method="POST" 

action="<%=MM_editAction%>"> 

<table  width="95%"  border="l"  align="  center"  cellpadding="3" 
cellspacing="0"> 

<tr> 

<td>First  Name  </td> 

<td><input  name="firstName"  type="text"  id="firstName" 

value="<%=(rs_user.Fields.Item("firstName").Value)%>"  /></td> 

</tr> 

<tr> 

<td>Last  Name  </td> 

<td><input  name="lastName"  type="text"  id="lastName" 

value="<%=(rs_user. Fields . Item(" lastN ame") . Value)%>"  /></td> 

</tr> 

<tr> 

<td>Office  Phone  </td> 

<td><input  name="of(icePhone"  type="text"  id="officePhone" 

value="<%=(rs_user.Fields.Item("officephone").Value)%>"  /></td> 

</tr> 

<tr> 

<td>Office  Room  </td> 

<td><input  name="officeRoom"  type="text"  id="officeRoom" 

value="<%=(rs_user.Fields.Item("officeRoom").Value)%>"  /></td> 

</tr> 

<tr> 

<td>Email  Address  </td> 

<td><input  name="email"  type="text"  id="email" 

value="<%=(rs_user.Fields.Item("email").Value)%>"  size="60"  /></td> 

</tr> 

<tr> 

<td>User  Name  </td> 

<td><input  name="userName"  type="text"  id="userName" 
value="<%=(rs_user.Fields.Item("userName").Value)%>"  /></td> 

</tr> 

<tr> 

<td>Password</td> 
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<td><input  name="password"  type="password"  id="password" 
value="<%=(rs_user.Fields.Item("password").Value)%>"  /></td> 

</tr> 

<tr> 

<td>User  Group  </td> 

<td><input  name="userGroup"  type="text"  id="userGroup" 
value="<%=(rs_user.Fields.Item("userGroup").Value)%>"  /></td> 

</tr> 

<tr> 

<td>&nbsp;</td> 

<td><input  type=" submit"  name="Submit"  value=" Submit"  /></td> 

</tr> 

</table> 


<input  type="hidden"  name="MM_update"  value="forml"> 

<input  type="hidden"  name="MM_recordId"  value="<%= 
rs_user.Fields.Item("userid").Value  %>"> 

</form>  <p  align="left">&nbsp;</p></td> 

</tr> 

<tr> 

<td>&nbsp;  </td> 

</tr> 

</table> 

<p>&nbsp;</p> 

<p>&nbsp;</p> 

</body> 

</html> 

<% 

rs_user.Close() 

Set  rs_user  =  Nothing 

%> 
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35.  Home_Page.asp 


<%@LANGUAGE="VBSCRIPT"  CODEPAGE="1252"%><!DOCTYPE  html 
PUBLIC  "-//W3C//DTD  XHTML  1.0  Transitional//EN" 

"http://www.w3  .org/TR/xhtml  1 /DTD/xhtml  1  -transitional.dtd"> 

<html  xmlns="http://www.w3.org/1999/xhtml"> 

<head> 

<title>Distance  LeamingiDLR  Home  Page</title> 

<meta  http-equiv="Content-Type"  content="text/html;  charset=iso-8859-l"  /> 
<link  href="DLStylesheet.css"  rel="stylesheet"  type="text/css"  /> 

<style  type="text/css"> 

<!- 
a:  link  { 

color:  #CC3300; 

} 

a:visited  { 

color:  #CC3399; 

} 

a:hover  { 

color:  #000066; 

} 

a:  active  { 

color:  #339900; 

} 

.stylel  {color:  #FF0000} 

— > 

</style></head> 

<body> 

<table  width="95%"  height="214"  border="0"  align="center"  cellpadding="3" 
cellspacing="0"> 

<tr> 

<td  height="109"><table  width="100%"  border="0"  align="left" 
cellpadding="3"  cellspacing="0"  bgcolor="#DEDEBC"> 

<tr> 

<td  width="88%"  align="  center"  valign="middle" 

bgcolor="#DEDEBC"><img  src="Images/nps_banner.gif'  width="447"  height="97"  /> 

</td> 

</tr> 

</table></td> 

</tr> 

<tr> 

<td><hr  />  <h3  align="center">  DLR  Content  Management  System  Home 

Page  </h3> 

<hr  />  <p  align="center"  class="stylel">***WELCOME  TO  THE  DLR 
CONTENT  MANAGEMENT  SYSTEM*  **<br  /> 
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SELECT  FROM  BELOW  LIST  OF  OPERATIONS  TO  CONTINUE  </p> 
</td> 

</tr> 

<tr> 

<td><table  width="70%"  border='T"  align="center"  cellpadding="3" 
cellspacing="0"> 

<tr> 

<td  width="77%"><strong>Search<br  /> 

</strong>(Content  Query  by  Keyword  or  Course)</td> 

<td  width="23%"><objeet  classid="elsid:D27CDB6E-AE6D-I  Ief-96B8- 
444553540000" 

eodebase="http://download.macromedia.eoin/pub/shoekwave/cabs/flash/swflash.eab#ver 
sion=5, 0,0,0"  name="Seareh"  width="I00"  height="23"  id="Seareh"> 

<param  name="movie"  value="buttonl.swf'  /> 

<param  name="quality"  value="high"  /> 

<param  name="bgeolor"  value="#DEDEBC"  /> 

<embed  src="buttonI.swf'  width="I00"  height="23"  quality="high" 
pluginspage="http://www.maeromedia.coin/shockwave/download/index.cgi?PI_Prod_Ve 
rsion=ShockwaveFIash"  type="application/x-shockwave-flash"  bgcoIor="#DEDEBC" 
name="  Seareh"></embed> 

</object></td> 

</tr> 

<tr> 

<td><strong>Log  In<br  /> 

</strong>(Required  ONLY  for  Database  Modifieation)  </td> 

<td><objeet  eIassid="clsid:D27CDB6E-AE6D-IIef-96B8-444553540000" 
codebase="http://download.macromedia.eoin/pub/shoekwave/cabs/flash/swflash.eab#ver 
sion=5,0,0,0"  width="I03"  height="24"> 

<param  name="movie"  value="button5.swf'  /> 

<param  name="quality"  value="high"  /> 

<param  name="bgeolor"  value="#DEDEBC"  /> 

<embed  src="button5.swf'  quality="high" 

pluginspage="http://www.maeromedia.coin/shockwave/download/index.cgi?PI_Prod_Ve 
rsion=ShockwaveFIash"  type="appIication/x-shockwave-flash"  width="I03"  height="24" 
bgcolor="#DEDEBC"></embed> 

</object></td> 

</tr> 

<tr> 

<td><strong>  Alter  Database</strong>  <br  /> 

(Professors  &amp;  Content  Developers  ONLY)  </td> 

<td><objeet  elassid="clsid:D27CDB6E-AE6D-llef-96B8-444553540000" 
codebase="http://download.macromedia.eom/pub/shoekwave/eabs/flash/swflash.eab#ver 
sion=5,0,0,0"  width='T03"  height="24"> 

<param  name="BGCOLOR"  value="#DEDEBC"  /> 

<param  name="niovie"  value="button6.swf'  /> 

<param  name="quality"  value="high"  /> 
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<embed  src="button6.swf'  width="103"  height="24"  quality="high" 
pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?Pl_Prod_Ve 
rsion=ShockwaveFlash"  type="application/x-shockwave-flash"  bgcolor="#DEDEBC" 
></embed> 

</object></td> 

</tr> 

<tr> 

<td><strong>User's  Records,  Category  Records,  &quot;Teach&quot; 
Records</strong>  <br  /> 

(Administrator  ONLY)  </td> 

<td><object  classid="clsid:D27CDB6E-AE6D-llcf-96B8-444553540000’’ 
codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#ver 
sion=5,0,0,0"  width="103"  height="24"> 

<param  name="BGCOLOR"  value="#DEDEBC"  /> 

<param  name="movie"  value="button7.swf '  /> 

<param  name="quality"  value="high"  /> 

<embed  src="button7.swf'  width="103"  height="24"  quality="high" 
pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?Pl_Prod_Ve 
rsion=ShockwaveFlash"  type="application/x-shockwave-flash"  bgcolor="#DEDEBC" 
></embed> 

</object></td> 

</tr> 

</table>  </td> 

</tr> 

</table> 


<p>&nbsp;</p> 

<p>&nbsp;</p> 

<^ody> 

</html> 
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36.  Image_Detail_Visitor.asp 


<%@LANGUAGE=" VBSCRIPT"  CODEPAGE='T252"%> 

<!— #include  file="Connections/conn_DistanceLeaming.asp"  — > 

<% 

Dim  rsgraphic _ MMColParam 

rsgraphic _ MMColParam  =  "  1 " 

If  (Request.QueryStringC'graphicid")  <>  "")  Then 

rsgraphic _ MMColParam  =  Request.QueryStringC'graphicid") 

End  If 
%> 

<% 

Dim  rs  graphic 

Dim  rs_graphic_numRows 

Set  rs  graphic  =  Server.CreateObject("ADODB.Recordset") 
rsgraphic.ActiveConnection  =  MM_conn_DistanceLeaming_STRING 
rs  graphic. Source  =  "SELECT  *  FROM  Graphic  WHERE  graphicid  =  "  + 

Replace(rs_graphic _ MMColParam, """)  +  "" 

rs_graphic.CursorType  =  0 
rs_graphic.CursorLocation  =  2 
rsgraphic.LockType  =  1 
rsgraphic .  Open() 

rs_graphic_numRows  =  0 

%> 

<!DOCTYPE  html  PUBLIC  "-//W3C//DTD  XHTML  1.0  Transitional//EN" 
"http://www.w3  .org/TR/xhtml  1 /DTD/xhtml  1  -transitional.dtd"> 

<html  xmlns="http  ://www. w3  .org/ 1 999/xhtml"> 

<head> 

<title>Distance  Learning:  Image  Result</title> 

<meta  http-equiv="Content-Type"  content="text/html;  charset=iso-8859-l"  /> 
<link  href="DLStylesheet.css"  rel="stylesheet"  type="text/css"  /> 

<style  type="text/css"> 

<!- 

.  style  1  { 

color:  #CC3300; 
font-weight:  bold; 

} 

— > 

</style> 

</head> 

<body> 

<table  width="95%"  height="335"  border="0"  align="center"  cellpadding="3" 
cellspacing="0"> 
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border="0"  align="left' 


<tr> 

<td  height="109"><table  width="100%" 
cellpadding="3"  cellspacing="0"  bgcolor="#DEDEBC"> 

<tr> 

<td  width="88%"  align="  center"  valign="middle" 

bgcolor="#DEDEBC"><img  sre="Images/nps_banner.gif'  width="447"  height="97"  /> 

</td> 

</tr> 

</table></td> 

</tr> 

<tr> 

<td  height="50"><table  width="72%"  border="0"  align="eenter" 
cellpadding="3"  eellspaeing="0"  bordereolor="#F6F6F3"> 

<tr> 

<td  width="14%"  bgeolor="#DEDEBC"><object 

classid="elsid:D27CDB6E-AE6D-llcf-96B8-444553540000" 

codebase="http://download.macromedia.eom/pub/shoekwave/eabs/flash/swflash.eab#ver 
sion=5, 0,0,0"  width="103"  height="24"> 

<param  name="movie"  value="button2.swf'  /> 

<param  name="quality"  value="high"  /> 

<param  name="bgeolor"  value="#DEDEBC"  /> 

<embed  src="button2.swf'  quality="high" 

pluginspage="http://www.maeromedia.coin/shockwave/download/index.cgi?Pl_Prod_Ve 
rsion=ShockwaveFlash"  type="application/x-shockwave-flash"  width="103"  height="24" 
bgcolor="#DEDEBC"></embed> 

</object></td> 

<td  width="14%"  bgeolor="#DEDEBC"><object 

classid="elsid:D27CDB6E-AE6D-llcf-96B8-444553540000" 

codebase="http://download.macromedia.eoin/pub/shoekwave/cabs/flash/swflash.eab#ver 
sion=5,0,0,0"  name="Seareh"  width="100"  height="23"  id="Seareh"> 

<param  name="movie"  value="buttonl.swf'  /> 

<param  name="quality"  value="high"  /> 

<param  name="bgeolor"  value="#DEDEBC"  /> 

<embed  src="buttonLswf'  width="100"  height="23"  quality="high" 
pluginspage="http://www.maeromedia.coin/shockwave/download/index.cgi?Pl_Prod_Ve 
rsion=ShockwaveFlash"  type="application/x-shockwave-flash"  bgcolor="#DEDEBC" 
name="  Seareh"></embed> 

</object></td> 

<td  width="14%"  bgeolor="#DEDEBC"><object 

classid="elsid:D27CDB6E-AE6D-llcf-96B8-444553540000" 

codebase="http://download.macromedia.eoin/pub/shoekwave/eabs/flash/swflash.eab#ver 
sion=5,0,0,0"  width="100"  height="23"> 

<param  name="movie"  value="button3.swf'  /> 

<param  name="quality"  value="high"  /> 

<param  name="bgeolor"  value="#DEDEBC"  /> 
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<embed  src="button3.swf'  quality="high" 

pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?Pl_Prod_Ve 
rsion=ShockwaveFlash"  type="application/x-shockwave-flash"  width="100"  height="23" 
bgcolor="#DEDEBC"></embed> 

</object></td> 

<td  width="14%"  bgcolor="#DEDEBC"><object 

classid="clsid:D27CDB6E-AE6D-llcf-96B8-444553540000" 

codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#ver 
sion=5, 0,0,0"  width="100"  height="23"> 

<param  name="movie"  value="button4.swf'  /> 

<param  name="quality"  value="high"  /> 

<param  name="bgcolor"  value="#DEDEBC"  /> 

<embed  src="button4.swf'  quality="high" 

pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?Pl_Prod_Ve 
rsion=ShockwaveFlash"  type="application/x-shockwave-flash"  width="100"  height="23" 
bgcolor="#DEDEBC"></embed> 

</object></td> 

<td  width="14%"  bgcolor="#DEDEBC"><object 

classid="clsid:D27CDB6E-AE6D-llcf-96B8-444553540000" 

codebase="htq)://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#ver 
sion=5,0,0,0"  width="103"  height="24"> 

<param  name="movie"  value="button5.swf'  /> 

<param  name="quality"  value="high"  /> 

<param  name="bgcolor"  value="#DEDEBC"  /> 

<embed  src="button5.swf'  quality="high" 

pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?Pl_Prod_Ve 
rsion=ShockwaveFlash"  type="application/x-shockwave-flash"  width="103"  height="24" 
bgcolor="#DEDEBC"></embed> 

</object></td> 

</tr> 

</table></td> 

</tr> 

<tr> 

<td  height="68"><hr  />  <h3  align="center">  Image  Result  </h3> 

<hr  />  </td> 

</tr> 

<tr> 

<td><p  align="eenter"><span  elass="stylel"><br  /> 
<%=(rs_graphie.Fields.Item("graphieName").Value)%></span>:</p> 

<p  align="eenter"><img 

src="<%=(rs_graphie.Fields.Item("graphicPath").Value)%>"  />  </p></td> 

</tr> 

</table> 

<p>&nbsp;</p> 

<p>&nbsp;</p> 

</body> 
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</html> 

<% 

rs_graphic.Close() 

Set  rs_graphic  =  Nothing 

%> 


37.  ImageResult.asp 


<%@LANGUAGE=" VBSCRIPT"  CODEPAGE='T252"%> 

<!— #include  file="Connections/conn_DistanceLeaming.asp"  — > 

<% 

Dim  rsimage _ MMColParam 

rs_image _ MMColParam  =  "0" 

If  (Request.QueryStringC'graphicid")  <>  "")  Then 

rsimage _ MMColParam  =  Request.QueryStringC'graphicid") 

End  If 
%> 

<% 

Dim  rs  image 

Dim  rs_image_numRows 

Set  rs  image  =  Server.CreateObject("ADODB.Recordset") 
rs_image.ActiveConnection  =  MMconnDistanceLeamingSTRING 
rs_image. Source  =  "SELECT  *  FROM  Graphic  WHERE  graphicid  =  "  + 

Replace(rs_image _ MMColParam, """)  +  "" 

rs_image.CursorType  =  0 
rs_image.CursorLocation  =  2 
rs_image.LockType  =  1 
rs_image.Open() 

rs_image_numRows  =  0 

%> 

<!DOCTYPE  html  PUBLIC  "-//W3C//DTD  XHTML  1.0  Transitional//EN" 
"http://www.w3  .org/TR/xhtml  1/DTD/xhtml  1  -transitional.dtd"> 

<html  xmlns="http://www.w3.org/1999/xhtml"> 

<head> 

<title>Distance  Learning:  Image  Result</title> 

<meta  http-equiv="Content-Type"  content="text/html;  charset=iso-8859-l"  /> 
<link  href="DLStylesheet.css"  rel="stylesheet"  type="text/css"  /> 

<style  type="text/css"> 

<!- 

.  style  1  { 
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color:  #CC3300; 
font-weight:  bold; 

} 

— > 

</style> 

</head> 

<body> 

<table  width="95%"  height="340"  border="0"  align="center"  cellpadding="3" 
cellspacing="0"> 

<tr> 

<td  height="109"><table  width="100%"  border="0"  align="left" 
cellpadding="3"  cellspacing="0"  bgcolor="#DEDEBC"> 

<tr> 

<td  width="88%"  align="  center"  valign="niiddle" 

bgcolor="#DEDEBC"><img  src="Images/nps_banner.gif'  width="447"  height="97"  /> 

</td> 

</tr> 

</table></td> 

</tr> 

<tr> 

<td  height="50"><table  width="72%"  border="0"  align="center" 
cellpadding="3"  cellspacing="0"  bordercolor="#F6F6F3"> 

<tr> 

<td  width="14%"  bgcolor="#DEDEBC"><object 

classid="clsid:D27CDB6E-AE6D-llcf-96B8-444553540000" 

codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#ver 
sion=5, 0,0,0"  width="103"  height="24"> 

<param  name="movie"  value="button2.swf'  /> 

<param  nanie="quality"  value="high"  /> 

<param  name="bgcolor"  value="#DEDEBC"  /> 

<embed  src="button2.swf'  quality="high" 

pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?Pl_Prod_Ve 
rsion=ShockwaveFlash"  type="application/x-shockwave-flash"  width="103"  height="24" 
bgcolor="#DEDEBC"></embed> 

</object></td> 

<td  width="14%"  bgcolor="#DEDEBC"><object 

classid="clsid:D27CDB6E-AE6D-llcf-96B8-444553540000" 

codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#ver 
sion=5,0,0,0"  name=" Search"  width="100"  height="23"  id="Search"> 

<param  name="movie"  value="buttonl.swf'  /> 

<param  nanie="quality"  value="high"  /> 

<param  name="bgcolor"  value="#DEDEBC"  /> 

<embed  src="buttonl.swf'  width="100"  height="23"  quality="high" 
pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?Pl_Prod_Ve 
rsion=ShockwaveFlash"  type="application/x-shockwave-flash"  bgcolor="#DEDEBC" 
name="  Search"></embed> 
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</object></td> 

<td  width="14%"  bgcolor="#DEDEBC"><object 

classid="clsid:D27CDB6E-AE6D-llcf-96B8-444553540000" 

codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#ver 
sion=5, 0,0,0"  width="100"  height="23"> 

<param  name="movie"  value="button3.swf'  /> 

<param  name="quality"  value="high"  /> 

<param  name="bgcolor"  value="#DEDEBC"  /> 

<embed  src="button3.swf'  quality="high" 

pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?Pl_Prod_Ve 
rsion=ShockwaveFlash"  type="application/x-shockwave-flash"  width="100"  height="23" 
bgcolor="#DEDEBC"></embed> 

</object></td> 

<td  width="14%"  bgcolor="#DEDEBC"><object 

classid="clsid:D27CDB6E-AE6D-llcf-96B8-444553540000" 

codebase="htq)://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#ver 
sion=5,0,0,0"  width="100"  height="23"> 

<param  name="movie"  value="button4.swf'  /> 

<param  name="quality"  value="high"  /> 

<param  name="bgcolor"  value="#DEDEBC"  /> 

<embed  src="button4.swf'  quality="high" 

pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?Pl_Prod_Ve 
rsion=ShockwaveFlash"  type="application/x-shockwave-flash"  width="100"  height="23" 
bgcolor="#DEDEBC"></embed> 

</object></td> 

<td  width="14%"  bgcolor="#DEDEBC"><object 

classid="clsid:D27CDB6E-AE6D-llcf-96B8-444553540000" 

codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#ver 
sion=5,0,0,0"  width="103"  height="24"> 

<param  name="movie"  value="button5.swf'  /> 

<param  name="quality"  value="high"  /> 

<param  name="bgcolor"  value="#DEDEBC"  /> 

<embed  src="button5.swf'  quality="high" 

pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?Pl_Prod_Ve 
rsion=ShockwaveFlash"  type="application/x-shockwave-flash"  width="103"  height="24" 
bgcolor="#DEDEBC"></embed> 

</object></td> 

</tr> 

</table></td> 

</tr> 

<tr> 

<tdheight="73"><hr/>  <h3  align="center">  Image  Result  </h3> 

<hr  />  </td> 

</tr> 

<tr> 
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<td><p  align="center">Image:  <span 

class="stylel"><%=(rs_image.Fields.Item("graphicName").Value)%></span>  </p> 

<p  align="center"><img 

src="<%=(rs_image. Fields. Item("graphicPath").Value)%>"  /></p></td> 

</tr> 

</table> 

<p>&nbsp;</p> 

<p>&nbsp;</p> 

<^ody> 

</html> 

<% 

rs_image.Close() 

Set  rs_image  =  Nothing 

%> 
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38.  Image  Result  All  Nps.asp 


<%@LANGUAGE=" VBSCRIPT"  CODEPAGE='T252"%> 

<!— #include  file="Connections/conn_DistanceLeaming.asp"  — > 

<% 

Dim  rsallGraphics _ MMColParam 

rsallGraphics _ MMColParam  =  "2" 

If  (Request.QueryStringC'subsectionid")  <>  "")  Then 

rsallGraphics _ MMColParam  =  Request. Query  String("subsectionid") 

End  If 
%> 

<% 

Dim  rs  allGraphics 

Dim  rs_allGraphics_numRows 

Set  rs  allGraphics  =  Server.CreateObject("ADODB.Recordset") 
rsallGraphics.ActiveConnection  =  MMconnDistanceLeamingSTRING 
rs  allGraphics. Source  =  "SELECT  *  FROM  Subsection  Has  Graphics,  Graphic 
WHERE  Subsection_Has_Graphics.graphicid=  Graphic.graphicid  AND 

SubsectionHasGraphics.subsectionid  =  "  +  Replace(rs_allGraphics _ MMColParam, 

. ,  """)  +  "  ORDER  BY  Graphic.graphicName  ASC" 

rsallGraphics.CursorType  =  0 
rs_allGraphics.CursorLocation  =  2 
rs_allGraphics.LockType  =  1 
rs_allGraphics .  Open() 

rsallGraphicsnumRows  =  0 

%> 

<% 

Dim  rssubsection _ MMColParam 

rssubsection _ MMColParam  =  "  1 " 

If  (Request.QueryStringC'subsectionid")  <>  "")  Then 

rssubsection _ MMColParam  =  Request.QueryString("subsectionid") 

End  If 
%> 

<% 

Dim  rs  subsection 

Dim  rs_subsection_numRows 

Set  rs  subsection  =  Server.CreateObject("ADODB.Recordset") 
rs_subsection.ActiveConnection  =  MM_conn_DistanceLeaming_STRING 
rssubsection.  Source  =  "SELECT  subsectionid,  subsectionName  FROM 
Subsection  WHERE  subsectionid  =  "  +  Replace(rs_subsection _ MMColParam,  """) 

_j_  MM 
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rs_subsection.CursorType  =  0 
rs_subsection.CursorLocation  =  2 
rs_subsection.LockType  =  1 
rs_subsection.Open() 

rs_subsection_numRows  =  0 

%> 

<% 

Dim  Repeat  1  numRows 
Dim  Repeatl _ index 

Repeat  1  numRows  =  5 
Repeatl _ index  =  0 

rsallGraphicsnumRows  =  rsallGraphicsnumRows  +  Repeatl  numRows 

%> 

<!DOCTYPE  html  PUBLIC  "-//W3C//DTD  XHTML  1.0  Transitional//EN" 
"http://www.w3  .org/TR/xhtml  1/DTD/xhtml  1  -transitional.dtd"> 

<html  xmlns="http://www.w3.org/1999/xhtml"> 

<head> 

<title>Distance  Learning:  All  Images</title> 

<meta  http-equiv="Content-Type"  eontent="text/html;  charset=iso-8859-l"  /> 
<link  href="DLStylesheet.css"  rel="stylesheet"  type="text/ess"  /> 

<style  type="text/css"> 

<!- 
a:  link  { 

color:  #CC3300; 

} 

a:visited  { 

color:  #CC3399; 

} 

a:hover  { 

color:  #000066; 

} 

a:  active  { 

color:  #339900; 

} 

.style  1  {color:  #CC3300} 

— > 

</style></head> 

<body> 

<table  width="95%"  height="214"  border="0"  align="center"  cellpadding="3" 
cellspacing="0"> 

<tr> 

<td  height="109"><table  width="100%"  border="0"  align="left" 
cellpadding="3"  cellspacing="0"  bgcolor="#DEDEBC"> 

<tr> 
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<td  width="88%"  align="  center"  valign="middle" 

bgcolor="#DEDEBC"><img  sre="Images/nps_banner.gif'  width="447"  height="97"  /> 

</td> 

</tr> 

</table></td> 

</tr> 

<tr> 

<td  height="50"><table  width="72%"  border="0"  align="eenter" 
cellpadding="3"  eellspaeing="0"  bordereolor="#F6F6F3"> 

<tr> 

<td  width="14%"  bgeolor="#DEDEBC"><object 

classid="elsid:D27CDB6E-AE6D-llcf-96B8-444553540000" 

codebase="http://download.macromedia.eom/pub/shoekwave/eabs/flash/swflash.eab#ver 
sion=5, 0,0,0"  width="103"  height="24"> 

<param  name="movie"  value="button2.swf'  /> 

<param  name="quality"  value="high"  /> 

<param  name="bgcolor"  value="#DEDEBC"  /> 

<embed  src="button2.swf'  quality="high" 

pluginspage="http://www.maeromedia.com/shockwave/download/index.cgi?Pl_Prod_Ve 
rsion=ShockwaveFlash"  type="application/x-shockwave-flash"  width="103"  height="24" 
bgcolor="#DEDEBC"></embed> 

</object></td> 

<td  width="14%"  bgeolor="#DEDEBC"><object 

classid="elsid:D27CDB6E-AE6D-llcf-96B8-444553540000" 

codebase="http://download.macromedia.eoin/pub/shoekwave/eabs/flash/swflash.eab#ver 
sion=5,0,0,0"  name="Seareh"  width="100"  height="23"  id="Seareh"> 

<param  name="movie"  value="buttonl.swf'  /> 

<param  name="quality"  value="high"  /> 

<param  name="bgcolor"  value="#DEDEBC"  /> 

<embed  src="buttonl.swf'  width="100"  height="23"  quality="high" 
pluginspage="http://www.maeromedia.coin/shockwave/download/index.cgi?Pl_Prod_Ve 
rsion=ShockwaveFlash"  type="application/x-shockwave-flash"  bgcolor="#DEDEBC" 
name="  Seareh"></embed> 

</object></td> 

<td  width="14%"  bgeolor="#DEDEBC"><object 

classid="elsid:D27CDB6E-AE6D-llcf-96B8-444553540000" 

codebase="http://download.macromedia.eoin/pub/shoekwave/eabs/flash/swflash.eab#ver 
sion=5,0,0,0"  width="100"  height="23"> 

<param  name="movie"  value="button3.swf'  /> 

<param  name="quality"  value="high"  /> 

<param  name="bgcolor"  value="#DEDEBC"  /> 

<embed  src="button3.swf'  quality="high" 

pluginspage="http://www.maeromedia.coin/shockwave/download/index.cgi?Pl_Prod_Ve 
rsion=ShockwaveFlash"  type="application/x-shockwave-flash"  width="100"  height="23" 
bgcolor="#DEDEBC"></embed> 

</object></td> 
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<td  width="14%"  bgcolor="#DEDEBC"><object 

classid="clsid:D27CDB6E-AE6D-llcf-96B8-444553540000" 

codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#ver 
sion=5, 0,0,0"  width="100"  height="23"> 

<param  name="movie"  value="button4.swf'  /> 

<param  name="quality"  value="high"  /> 

<param  name="bgcolor"  value="#DEDEBC"  /> 

<embed  src="button4.swf'  quality="high" 

pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?Pl_Prod_Ve 
rsion=ShockwaveFlash"  type="application/x-shockwave-flash"  width="100"  height="23" 
bgcolor="#DEDEBC"></embed> 

</object></td> 

<td  width="14%"  bgcolor="#DEDEBC"><object 

classid="clsid:D27CDB6E-AE6D-llcf-96B8-444553540000" 

codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#ver 
sion=5,0,0,0"  width="103"  height="24"> 

<param  name="movie"  value="button5.swf'  /> 

<param  name="quality"  value="high"  /> 

<param  name="bgcolor"  value="#DEDEBC"  /> 

<embed  src="button5.swf'  quality="high" 

pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?Pl_Prod_Ve 
rsion=ShockwaveFlash"  type="application/x-shockwave-flash"  width="103"  height="24" 
bgcolor="#DEDEBC"></embed> 

</object></td> 

</tr> 

</table></td> 

</tr> 

<tr> 

<td><hr  />  <h3  align="center">  All  Images  for:  <span 

class="stylel"><%=(rs_subsection.Fields.Item("subsectionName").Value)%></span> 

</h3> 

<hr  />  </td> 

</tr> 

<tr> 

<td> 

<% 

While  ((Repeat  1  numRows  <>  0)  AND  (NOT  rs_allGraphics.EOF)) 

%> 

<P 

align="center"><strong><%=(rs_allGraphics.Fields.Item("graphicName").Value)%></str 

ong></p> 

<p  align="center"><strong><img 

src="<%=(rs_allGraphics. Fields. Item("graphicPath").Value)%>"  /></strong></p> 

<% 

Repeat  1 _ index=Repeat  1 _ index+ 1 

Repeatl _ nuniRows=Repeatl _ numRows- 1 
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rs_allGraphics.MoveNext() 

Wend 

%></td> 

</tr> 

</table> 

<p>&nbsp;</p> 

<p>&nbsp;</p> 

</body> 

</html> 

<% 

rs_allGraphics .  Close() 

Set  rs_allGraphics  =  Nothing 

%> 

<% 

rs_subsection.Close() 

Set  rs_subsection  =  Nothing 

%> 
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39.  Images_Result_Visitor.asp 


<%@LANGUAGE=" VBSCRIPT"  CODEPAGE='T252"%> 

<!— #include  file="Connections/conn_DistanceLeaming.asp"  — > 

<% 

Dim  Recordsetl _ MMColParam 

Recordsetl _ MMColParam  =  "4" 

If  (Request.QueryStringC'subsectionid")  <>  "")  Then 

Recordsetl _ MMColParam  =  Request.QueryString("subsectionid") 

End  If 
%> 

<% 

Dim  Recordsetl 

Dim  Recordsetl  _numRows 

Set  Recordsetl  =  Server.CreateObject("ADODB.Recordset") 

Recordset  l.ActiveConnection  =  MM_conn_DistanceLeaming_STRING 
Recordsetl.  Source  =  "SELECT  Graphic.graphicid,  Graphic. graphicName, 
Subsection_Has_Graphics.subsectionid  FROM  Graphic,  Subsection  Has  Graphics 
WHERE  Graphic.graphicid=Subsection_Has_Graphics.graphicid  AND 

Subsection_Has_Graphics.subsectionid  =  "  +  Replace(Recordsetl _ MMColParam, 

_|_  MM 

Recordsetl.  CursorType  =  0 
Recordsetl.  CursorLocation  =  2 
Recordset  l.LockType  =  1 
Recordsetl  .OpenQ 

Recordset  InumRows  =  0 

%> 

<% 

Dim  rssubsection _ MMColParam 

rssubsection _ MMColParam  =  "  1 " 

If  (Request.QueryStringC'subsectionid")  <>  "")  Then 

rssubsection _ MMColParam  =  Request.QueryString("subsectionid") 

End  If 
%> 

<% 

Dim  rs  subsection 

Dim  rs_subsection_numRows 

Set  rs  subsection  =  Server.CreateObject("ADODB.Recordset") 
rs_subsection.ActiveConnection  =  MM_conn_DistanceLeaming_STRING 
rssubsection.  Source  =  "SELECT  subsectionid,  subsectionName  FROM 

Subsection  WHERE  subsectionid  =  "  +  Replace(rs_subsection _ MMColParam,  """) 

+  "  ORDER  BY  subsectionName  ASC" 
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rs_subsection.CursorType  =  0 
rs_subsection.CursorLocation  =  2 
rs_subsection.LockType  =  1 
rs_subsection.Open() 

rs_subsection_numRows  =  0 

%> 

<% 

Dim  Repeat  1  numRows 
Dim  Repeatl _ index 

Repeat  1 _ numRows  =  10 

Repeatl _ index  =  0 

Reeordsetl  numRows  =  Reeordsetl_numRows  +  Repeatl  numRows 

%> 

<!DOCTYPE  html  PUBLIC  "-//W3C//DTD  XHTML  1.0  Transitional//EN" 
"http://www.w3  .org/TR/xhtml  1/DTD/xhtml  1  -transitional.dtd"> 

<html  xmlns="http://www.w3.org/1999/xhtml"> 

<head> 

<title>Distance  Learning:  Images  List  Result</title> 

<meta  http-equiv="Content-Type"  eontent="text/htmI;  charset=iso-8859-I"  /> 
<link  href="DLStylesheet.css"  rel="stylesheet"  type="text/ess"  /> 

<style  type="text/css"> 

<!- 
a:  link  { 

color:  #CC3300; 

} 

a:visited  { 

color:  #CC3399; 

} 

a:hover  { 

color:  #000099; 

} 

a:  active  { 

color:  #339900; 

} 

.style  1  {  color:  #CC3300; 
font-weight:  bold; 

} 

.style2  {color:  #CC3300} 

— > 

</style></head> 

<body> 

<table  width="95%"  height="300"  border="0"  align="center"  cellpadding="3" 
cellspacing="0"> 

<tr> 
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border="0"  align="left' 


<td  height="109"><table  width="100%" 
cellpadding="3"  cellspacing="0"  bgcolor="#DEDEBC"> 

<tr> 

<td  width="88%"  align="  center"  valign="middle" 

bgcolor="#DEDEBC"><img  src="Images/nps_banner.gif'  width="447"  height="97"  /> 

</td> 

</tr> 

</table></td> 

</tr> 

<tr> 

<td  height="50"><table  width="72%"  border="0"  align="center" 
cellpadding="3"  cellspacing="0"  bordercolor="#F6F6F3"> 

<tr> 

<td  width="14%"  bgcolor="#DEDEBC"><object 

classid="clsid:D27CDB6E-AE6D-llcf-96B8-444553540000" 

codebase="http://download.macromedia.coin/pub/shockwave/cabs/flash/swflash.cab#ver 
sion=5, 0,0,0"  width="103"  height="24"> 

<param  name="movie"  value="button2.swf'  /> 

<param  name="quality"  value="high"  /> 

<param  name="bgcolor"  value="#DEDEBC"  /> 

<embed  src="button2.swf'  quality="high" 

pluginspage="http://www.macromedia.coin/shockwave/download/index.cgi?Pl_Prod_Ve 
rsion=ShockwaveFlash"  type="application/x-shockwave-flash"  width="103"  height="24" 
bgcolor="#DEDEBC"></embed> 

</object></td> 

<td  width="14%"  bgcolor="#DEDEBC"><object 

classid="clsid:D27CDB6E-AE6D-llcf-96B8-444553540000" 

codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#ver 
sion=5,0,0,0"  name=" Search"  width="100"  height="23"  id="Search"> 

<param  name="movie"  value="buttonl.swf'  /> 

<param  name="quality"  value="high"  /> 

<param  name="bgcolor"  value="#DEDEBC"  /> 

<embed  src="buttonl.swf'  width="100"  height="23"  quality="high" 
pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?Pl_Prod_Ve 
rsion=ShockwaveFlash"  type="application/x-shockwave-flash"  bgcolor="#DEDEBC" 
name="  Search"></embed> 

</object></td> 

<td  width="14%"  bgcolor="#DEDEBC"><object 

classid="clsid:D27CDB6E-AE6D-llcf-96B8-444553540000" 

codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#ver 
sion=5,0,0,0"  width="100"  height="23"> 

<param  name="movie"  value="button3.swf'  /> 

<param  name="quality"  value="high"  /> 

<param  name="bgcolor"  value="#DEDEBC"  /> 

<embed  src="button3.swf'  quality="high" 

pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?Pl_Prod_Ve 


322 


rsion=ShockwaveFlash"  type="application/x-shockwave-flash"  width="100"  height="23" 
bgcolor="#DEDEBC"></embed> 

</object></td> 

<td  width="14%"  bgcolor="#DEDEBC"><object 

classid="clsid:D27CDB6E-AE6D-llcf-96B8-444553540000" 

codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#ver 
sion=5, 0,0,0"  width="100"  height="23"> 

<param  name="movie"  value="button4.swf'  /> 

<param  name="quality"  value="high"  /> 

<param  name="bgcolor"  value="#DEDEBC"  /> 

<embed  src="button4.swf'  quality="high" 

pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?Pl_Prod_Ve 
rsion=ShockwaveFlash"  type="application/x-shockwave-flash"  width="100"  height="23" 
bgcolor="#DEDEBC"></embed> 

</object></td> 

<td  width="14%"  bgcolor="#DEDEBC"><object 

classid="clsid:D27CDB6E-AE6D-llcf-96B8-444553540000" 

codebase="htq)://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#ver 
sion=5,0,0,0"  width="103"  height="24"> 

<param  name="movie"  value="button5.swf'  /> 

<param  name="quality"  value="high"  /> 

<param  name="bgcolor"  value="#DEDEBC"  /> 

<embed  src="button5.swf'  quality="high" 

pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?Pl_Prod_Ve 
rsion=ShockwaveFlash"  type="application/x-shockwave-flash"  width="103"  height="24" 
bgcolor="#DEDEBC"></embed> 

</object></td> 

</tr> 

</table></td> 

</tr> 

<tr> 

<td  height="74"><hr  />  <h3  align="center">  Image  List  for:  <span 

class="style2"><%=(rs_subsection.Fields.Item("subsectionName").Value)%></span> 
Subsection  </h3> 

<hr/> 

</td> 

</tr> 

<tr> 

<td> 

<% 

While  ((Repeat  1  numRows  <>  0)  AND  (NOT  Recordset  1. EOF)) 

%> 

<div  align="center"><a 

href="Image_Detail_Visitor.asp?graphicid=<%=(Recordsetl.Fields.Item("graphicid").Va 
lue)%>"><strong><%=(Recordsetl. Fields. Item("graphicName").Value)%></strong><br/ 

> 
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</a> 

</div> 

<% 

Repeat  1 _ index=Repeat  1 _ index+ 1 

Repeatl _ nuniRows=Repeatl _ numRows- 1 

Recordset  1  .Mo  veNextO 
Wend 

%> 

<p><br  /> 

If  you  want  to  see  all  <span  class="styler'>Images</span>  for  this  Subsection 
click  the  link:&nbsp;<a 

href="Image_Result_All_NPS.asp?subsectionid=<%=(rs_subsection.Fields.Item("subsec 
tionid").Value)%>">See  all  Images</a></p></td> 

</tr> 

</table> 

<p>&nbsp;</p> 

<p>&nbsp;</p> 

</body> 

</html> 

<% 

Recordsetl  .Close() 

Set  Recordsetl  =  Nothing 

%> 

<% 

rs_subsection.Close() 

Set  rs_subsection  =  Nothing 

%> 
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40.  Keyword_Request.asp 


<%@LANGUAGE=" VBSCRIPT"  CODEPAGE='T252"%> 

<!— #include  file="Connections/conn_DistanceLeaming.asp"  — > 

<% 

Dim  rs_category 

Dim  rs_category_numRows 

Set  rscategory  =  Server.  CreateObject("ADODB. Recordset") 
rs_category.ActiveConnection  =  MM_conn_DistanceLeaming_STRING 
rs  category. Source  =  "SELECT  *  FROM  Category  ORDER  BY  categoryName 

ASC" 

rs_category.CursorType  =  0 
rs_category.CursorLocation  =  2 
rs_category.LockType  =  1 
rs_category.Open() 

rs_category_numRows  =  0 

%> 

<!DOCTYPE  html  PUBLIC  "-//W3C//DTD  XHTML  1.0  TransitionaI//EN" 
"http://www.w3  .org/TR/xhtml  I/DTD/xhtml  I  -transitionaI.dtd"> 

<html  xmIns="http://www.w3.org/1999/xhtmI"> 

<head> 

<titIe>Distance  Learning:  Search  by  Keywords</titIe> 

<meta  http-equiv="Content-Type"  content="text/htmI;  charset=iso-8859-l"  /> 
<Iink  href="DLStyIesheet.css"  rel="stylesheet"  type="text/css"  /> 

<script  Ianguage="JavaScript"  type="text/JavaScript"> 

<!- 

function  MM_fmdObj(n,  d)  {  //v4.01 

var  p,i,x;  if(!d)  d=document;  if((p=n.indexOf("?"))>0&&parent.frames. length) 

{ 

d=parent.frames[n.substring(p+ 1 )]  .document;  n=n.substring(0,p); } 
if(!(x=d[n])&&d.all)  x=d.all[n];  for  (i=0;!x&&i<d.forms.length;i++) 
x=d.  forms  [i][n]; 

for(i=0;!x&&d.layers&&i<d.layers.length;i++) 
x=MM_fmdObj  (n,d-  lay  ers  [i]  .document) ; 

if(!x  &&  d.getElementByld)  x=d.getElementById(n);  return  x; 

} 

function  MM_validateForm()  { //v4.0 

var  i,p,q,nm, test, num, min, max, errors=",args=MM_validateForm.arguments; 
for  (i=0;  i<(args. length-2);  i+=3)  { test=args[i-i-2];  val=MM_findObj(args[i]); 
if  (val)  {  nm=val.name;  if  ((val=val.value)!="")  { 
if  (test.indexOf('isEmail')!=-l)  { p=val.indexOf('@'); 
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if  (p<l  II  p==(val.length-l))  errors+='-  '+nm+'  must  contain  an  e-mail 

address.\n'; 

}  else  if  (test!='R')  {  num  =  parseFloat(val); 
if  (isNaN(val))  errors-i-='-  '+nm+'  must  contain  a  numberAn'; 
if  (test.indexOf('inRange')  !=  -1)  {  p=test.indexOf(':'); 
min=test.substring(8,p);  max=test.substring(p+l); 

if  (num<min  ||  max<num)  errors+='-  '-l-nm-l-'  must  contain  a  number 
between  '+min+'  and  '+max+'.\n'; 

}  }  }  else  if  (test.charAt(O)  ==  'R')  errors  +=  '-l-nm-l-'  is  required.\n';  } 

}  if  (errors)  alert('The  following  error(s)  occurredAn'+errors); 
document. MM_retumValue  =  (errors  ==  "); 

} 

//-> 

</seript> 

</head> 

<body> 

<table  width="95%"  height="403"  border="0"  align="center"  eellpadding="3" 
cellspacing="0"> 

<tr> 

<td  height="109"><table  width="100%"  border="0"  align="left" 
cellpadding="3"  eellspaeing="0"  bgeolor="#DEDEBC"> 

<tr> 

<td  width="88%"  align="eenter"  valign="middle" 

bgcolor="#DEDEBC"><img  sre="Images/nps_banner.gif'  width="447"  height="97"  /> 

</td> 

</tr> 

</table></td> 

</tr> 

<tr> 

<td  height="50"><table  width="72%"  border="0"  align="eenter" 
cellpadding="3"  eellspaeing="0"  bordereolor="#F6F6F3"> 

<tr> 

<td  width="14%"  bgeolor="#DEDEBC"><object 

classid="elsid:D27CDB6E-AE6D-llcf-96B8-444553540000" 

codebase="http://download.macromedia.eom/pub/shoekwave/cabs/flash/swflash.eab#ver 
sion=5, 0,0,0"  width="103"  height="24"> 

<param  name="movie"  value="button2.swf'  /> 

<param  name="quality"  value="high"  /> 

<param  name="bgcolor"  value="#DEDEBC"  /> 

<embed  src="button2.swf'  quality="high" 

pluginspage="http://www.maeromedia.com/shockwave/download/index.cgi?Pl_Prod_Ve 
rsion=ShockwaveFlash"  type="application/x-shockwave-flash"  width="103"  height="24" 
bgcolor="#DEDEBC"></embed> 

</object></td> 

<td  width="14%"  bgeolor="#DEDEBC"><object 

classid="elsid:D27CDB6E-AE6D-llcf-96B8-444553540000" 
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codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#ver 
sion=5, 0,0,0"  name=" Search"  width="100"  height="23"  id="Search"> 

<param  name="movie"  value="buttonl.swf'  /> 

<param  name="quality"  value="high"  /> 

<param  name="bgcolor"  value="#DEDEBC"  /> 

<embed  src="buttonLswf'  width="100"  height="23"  quality="high" 
pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?Pl_Prod_Ve 
rsion=ShockwaveFlash"  type="application/x-shockwave-flash"  bgcolor="#DEDEBC" 
name="  Search"></embed> 

</object></td> 

<td  width="14%"  bgcolor="#DEDEBC"><object 

classid="clsid:D27CDB6E-AE6D-llcf-96B8-444553540000" 

codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#ver 
sion=5,0,0,0"  width="100"  height="23"> 

<param  name="movie"  value="button3.swf'  /> 

<param  name="quality"  value="high"  /> 

<param  name="bgcolor"  value="#DEDEBC"  /> 

<embed  src="button3.swf'  quality="high" 

pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?Pl_Prod_Ve 
rsion=ShockwaveFlash"  type="applicatioii/x-shockwave-flash"  width="100"  height="23" 
bgcolor="#DEDEBC"></embed> 

</object></td> 

<td  width="14%"  bgcolor="#DEDEBC"><object 

classid="clsid:D27CDB6E-AE6D-llcf-96B8-444553540000" 

codebase="http://download.macromedia.coin/pub/shockwave/cabs/flash/swflash.cab#ver 
sion=5,0,0,0"  width="100"  height="23"> 

<param  name="movie"  value="button4.swf'  /> 

<param  name="quality"  value="high"  /> 

<param  name="bgcolor"  value="#DEDEBC"  /> 

<embed  src="button4.swf'  quality="high" 

pluginspage="http://www.macromedia.coiii/shockwave/download/index.cgi?Pl_Prod_Ve 
rsion=ShockwaveFlash"  type="application/x-shockwave-flash"  width="100"  height="23" 
bgcolor="#DEDEBC"></embed> 

</object></td> 

<td  width="14%"  bgcolor="#DEDEBC"><object 

classid="clsid:D27CDB6E-AE6D-llcf-96B8-444553540000" 

codebase="http://download.macromedia.coiii/pub/shockwave/cabs/flash/swflash.cab#ver 
sion=5,0,0,0"  width="103"  height="24"> 

<param  name="movie"  value="button5.swf'  /> 

<param  name="quality"  value="high"  /> 

<param  name="bgcolor"  value="#DEDEBC"  /> 

<embed  src="button5.swf'  quality="high" 

pluginspage="http://www.macromedia.coiii/shockwave/download/index.cgi?Pl_Prod_Ve 
rsion=ShockwaveFlash"  type="application/x-shockwave-flash"  width="103"  height="24" 
bgcolor="#DEDEBC"></embed> 

</object></td> 
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</tr> 

</table></td> 

</tr> 

<tr> 

<td  height="42"><hr  />  <h3  align="center">  Search  by  Keywords</h3> 

<hr  />  </td> 

</tr> 

<tr> 

<td  height="113"><form  name="frmkeywords"  id="fmikeywords" 
method="get"  action="Keyword_Result.asp?keywords"> 

<table  width="54%"  border="l"  align="center"  cellpadding="3" 
cellspacing="0"> 

<tr> 

<td  width="25%"><div  align="left">Enter  Keywords:  </div></td> 

<td  width="75%"><div  align="center"> 

<input  name="keywords"  type="text"  id="keywords"  size="40"  /> 

</div></td> 

</tr> 

<tr> 

<td>&nbsp  ;</td> 

<td><div  align="center"> 

<input  name="  Submit"  type="  submit" 

onclick="MM_validateForm('keywordsV','R');retum  document.MM_retumValue" 

value="  Search"  /> 

</div></td> 

</tr> 

</table> 

</form></td> 

</tr> 

<tr> 

<td>&nbsp  ;</td> 

</tr> 

<tr> 

<td>&nbsp;</td> 

</tr> 

</table> 

<p>&nbsp;</p> 

<p>&nbsp;</p> 

</body> 

</html> 

<% 

rs_category.Close() 

Set  rs_category  =  Nothing 

%> 
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41.  Keyword_Result.asp 


<%@LANGUAGE=" VBSCRIPT"  CODEPAGE='T252"%> 

<!— #include  file="Connections/conn_DistanceLeaming.asp"  — > 

<% 

Dim  rs_recordset _ MMColParam 

rs_recordset _ MMColParam  =  "0" 

If  (Request.QueryStringC'keywords")  <>  "")  Then 

rsrecordset _ MMColParam  =  Request.QueryStringC'keywords") 

End  If 
%> 

<% 

Dim  rs  recordset 

Dim  rsrecordsetnumRows 

Set  rs  recordset  =  Server.CreateObject("ADODB.Recordset") 
rs_recordset.ActiveConnection  =  MM_conn_DistanceLeaming_STRING 
rs  recordset. Source  =  "SELECT  *  FROM  Subsection  WHERE  keywords  LIKE 

'%"  +  Replace(rs_recordset _ MMColParam,  """)  + 

rs_recordset.CursorType  =  0 
rs_recordset.CursorLocation  =  2 
rs_recordset.LockType  =  1 
rs_recordset.Open() 

rs_recordset_numRows  =  0 

%> 

<% 

Dim  Repeat  1  numRows 
Dim  Repeatl _ index 

Repeat  1  numRows  =  2 
Repeatl _ index  =  0 

rsrecordsetnumRows  =  rs_recordset_numRows  +  Repeatl _ numRows 

%> 

<% 

'  ***  Recordset  Stats,  Move  To  Record,  and  Go  To  Record:  declare  stats 

variables 

Dim  rsrecordsettotal 
Dim  rsrecordsetfirst 
Dim  rs_recordset_last 

'  set  the  record  count 

rs  recordset  total  =  rs  recordset.RecordCount 
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'  set  the  number  of  rows  displayed  on  this  page 
If  (rs_reeordset_numRows  <  0)  Then 
rs_reeordset_numRows  =  rs_reeordset_total 
Elseif  (rs_reeordset_numRows  =  0)  Then 
rsrecordsetnumRows  =  1 
End  If 

'  set  the  first  and  last  displayed  reeord 
rs_recordset_first  =  1 

rs_recordset_last  =  rs_reeordset_first  +  rs_reeordset_numRows  -  1 

'  if  we  have  the  correet  record  count,  check  the  other  stats 
If  (rs  recordset  total  <>  -1)  Then 
If  (rs_recordset_first  >  rs_recordset_total)  Then 
rs_recordset_first  =  rs_recordset_total 
End  If 

If  (rs_recordset_last  >  rs_recordset_total)  Then 
rs_recordset_last  =  rs_recordset_total 
End  If 

If  (rs_recordset_numRows  >  rs_recordset_total)  Then 
rs_recordset_numRows  =  rs_recordset_total 
End  If 
End  If 

%> 

<% 

'  ***  Recordset  Stats:  if  we  don't  know  the  record  count,  manually  count  them 

If  (rs_recordset_total  =  -1)  Then 

'  count  the  total  records  by  iterating  through  the  recordset 
rs_recordset_total=0 
While  (Not  rs_recordset.EOF) 
rs_recordset_total  =  rs_recordset_total  +  1 
rs_recordset.MoveNext 
Wend 

'  reset  the  cursor  to  the  beginning 
If  (rs  recordset.CursorType  >  0)  Then 
rs_recordset.  MoveF  irst 
Else 

rs_recordset.Requery 
End  If 

'  set  the  number  of  rows  displayed  on  this  page 

If  (rs  recordset  numRows  <  0  Or  rs_recordset_numRows  >  rs  recordset  total) 

Then 
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rs_recordset_nuniRows  =  rs_recordset_total 
End  If 

'  set  the  first  and  last  displayed  record 
rs_recordset_first  =  1 

rs_recordset_last  =  rs_recordset_first  +  rs_recordset_numRows  -  1 

If  (rs_recordset_first  >  rs_recordset_total)  Then 
rs_recordset_first  =  rs_recordset_total 
End  If 

If  (rs_recordset_last  >  rs_recordset_total)  Then 
rs_recordset_last  =  rs_recordset_total 
End  If 

End  If 

%> 

<% 

Dim  MM_paramName 

%> 

<% 

'  ***  Move  To  Record  and  Go  To  Record:  declare  variables 

Dim  MMrs 

Dim  MMrsCount 

Dim  MM_size 

Dim  MM_uniqueCol 

Dim  MM  offset 

Dim  MMatTotal 

Dim  MM_paramIsDefined 

Dim  MM_param 
Dim  MM_index 

Set  MM_rs  =  rs_recordset 
MM_rsCount  =  rs_recordset_total 
MM_size  =  rs_recordset_numRows 
MM_uniqueCol  =  "" 

MM_paramName  =  "" 

MM_offset  =  0 
MM_atTotal  =  false 
MM_paramIsDefmed  =  false 
If  (MM_paramName  <>  "")  Then 

MM_paramIsDefmed  =  (Request.QueryString(MM_paramName)  <>  "") 
End  If 

%> 

<% 
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'  ***  Move  To  Record:  handle  'index'  or  'offset'  parameter 

if  (Not  MM_paramIsDefined  And  MM_rsCount  <>  0)  then 

'  use  index  parameter  if  defined,  otherwise  use  offset  parameter 
MM_param  =  Request.QueryString("index") 

If  (MM_param  =  "")  Then 
MM_param  =  Request.QueryString("offset") 

End  If 

If  (MM_param  <>  "")  Then 
MM_offset  =  Int(MM_param) 

End  If 

'  if  we  have  a  record  count,  check  if  we  are  past  the  end  of  the  recordset 
If  (MM  rsCount  <>  -I)  Then 

If  (MM_offset  >=  MM_rsCount  Or  MM_offset  =  -I)  Then  '  past  end  or  move 
last 

If  ((MM_rsCount  Mod  MM_size)  >  0)  Then  '  last  page  not  a  full  repeat 

region 

MM_offset  =  MM_rsCount  -  (MM_rsCount  Mod  MM_size) 

Else 

MM_offset  =  MM_rsCount  -  MM_size 
End  If 
End  If 
End  If 

'  move  the  cursor  to  the  selected  record 
MM_index  =  0 

While  ((Not  MM_rs.EOF)  And  (MMJndex  <  MM_offset  Or  MM_offset  =  -1)) 
MM_rs.MoveNext 
MM_index  =  MM_index  +  1 
Wend 

If  (MM  rs.EOF)  Then 

MM_offset  =  MM_index  '  set  MM_offset  to  the  last  possible  record 
End  If 

End  If 

%> 

<% 

'  ***  Move  To  Record:  if  we  dont  know  the  record  count,  check  the  display  range 

If  (MM_rsCount  =  -1)  Then 

'  walk  to  the  end  of  the  display  range  for  this  page 
MM  index  =  MM  offset 
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While  (Not  MM_rs.EOF  And  (MM_size  <  0  Or  MM_index  <  MM_offset  + 
MM_size)) 

MM_r  s .  Mo  veNext 
MM_index  =  MM_index  +  1 
Wend 

'  if  we  walked  off  the  end  of  the  reeordset,  set  MM_rsCount  and  MM_size 
If  (MM_rs.EOF)  Then 
MM_rsCount  =  MM_index 

If  (MM_size  <  0  Or  MM  size  >  MM  rsCount)  Then 
MM_size  =  MM_rsCount 
End  If 
End  If 

'  if  we  walked  off  the  end,  set  the  offset  based  on  page  size 
If  (MM_rs.EOF  And  Not  MM_paramIsDefined)  Then 
If  (MM_offset  >  MM_rsCount  -  MM_size  Or  MM_offset  =  -  I)  Then 
If  ((MM_rsCount  Mod  MM_size)  >  0)  Then 
MM_offset  =  MM_rsCount  -  (MM_rsCount  Mod  MM_size) 

Else 

MM_offset  =  MM_rsCount  -  MM_size 
End  If 
End  If 
End  If 

'  reset  the  eursor  to  the  beginning 
If  (MM_rs.CursorType  >  0)  Then 
MM_rs.MoveFirst 
Else 

MM_rs.Requery 
End  If 

'  move  the  cursor  to  the  selected  record 
MM_index  =  0 

While  (Not  MM_rs.EOF  And  MM_index  <  MM_offset) 

MM_rs.MoveNext 
MM_index  =  MM_index  +  I 
Wend 
End  If 
%> 

<% 

'  ***  Move  To  Record:  update  recordset  stats 

'  set  the  first  and  last  displayed  record 
rs_recordset_first  =  MM_offset  +  1 
rs  recordset  last  =  MM  offset  +  MM  size 
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If  (MM_rsCount  <>  -1)  Then 
If  (rs_recordset_first  >  MM_rsCount)  Then 
rs_recordset_first  =  MM_rsCount 
End  If 

If  (rs_recordset_Iast  >  MM_rsCount)  Then 
rs_recordset_Iast  =  MM_rsCount 
End  If 
End  If 

'  set  the  boolean  used  by  hide  region  to  check  if  we  are  on  the  last  record 
MM_atTotaI  =  (MM_rsCount  <>  -I  And  MM_offset  +  MM_size  >= 
MM_rsCount) 

%> 

<% 

'  ***  Go  To  Record  and  Move  To  Record:  create  strings  for  maintaining  URL  and 
Form  parameters 

Dim  MMkeepNone 
Dim  MMkeepURL 
Dim  MMkeepForm 
Dim  MMkeepBoth 

Dim  MMremoveList 
Dim  MM_item 
Dim  MM_nextItem 

'  create  the  list  of  parameters  which  should  not  be  maintained 
MM_removeList  =  "&index=" 

If  (MM_paramName  <>  "")  Then 

MM_removeList  =  MM_removeList  &  "&"  &  MM_paramName  &  "=" 

End  If 

MM_keepURL="" 

MM_keepForm=" " 

MM_keepBoth="" 

MM_keepNone=" " 

'  add  the  URL  parameters  to  the  MM_keepURL  string 
For  Each  MM_item  In  Request.QueryString 
MM_nextItem  =  &  MM_item  &  "=" 

If  (InStr(I,MM_removeList,MM_nextItem,I)  =  0)  Then 
MM_keepURL  =  MM_keepURL  &  MM_nextItem  & 
Server.URLencode(Request.QueryString(MM_item)) 

End  If 
Next 
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'  add  the  Form  variables  to  the  MM_keepForm  string 
For  Each  MM_item  In  Request.Form 
MM_nextItem  =  &  MM_item  &  "=" 

If  (InStr(I,MM_removeList,MM_nextItem,I)  =  0)  Then 
MM_keepForm  =  MM_keepForm  &  MM_nextItem  & 
Server.URLencode(Request.Form(MM_item)) 

End  If 
Next 

'  create  the  Form  +  URL  string  and  remove  the  intial  '&'  from  each  of  the  strings 
MM  keepBoth  =  MM_keepURL  &  MM  keepForm 
If  (MM_keepBoth  <>  "")  Then 

MM  keepBoth  =  Right(MM_keepBoth,  Len(MM_keepBoth)  -  1) 

End  If 

If(MM_keepURL<>"")  Then 

MM  keepURL  =  Right(MM_keepURL,  Len(MM_keepURL)  -  I) 

End  If 

If  (MM  keepForm  <>  "")  Then 

MM_keepForm  =  Right(MM_keepForm,  Len(MM_keepForm)  -  1) 

End  If 

'  a  utility  function  used  for  adding  additional  parameters  to  these  strings 
Function  MM_joinChar(firstItem) 

If  (firstitem  <>  "")  Then 
MMJoinChar  =  "&" 

Else 

MMJoinChar  =  "" 

End  If 

End  Function 

%> 

<% 

'  ***  Move  To  Record:  set  the  strings  for  the  first,  last,  next,  and  previous  links 

Dim  MM_keepMove 
Dim  MM_moveParam 
Dim  MM_moveFirst 
Dim  MM_moveLast 
Dim  MMmoveNext 
Dim  MM_movePrev 

Dim  MM_urlStr 
Dim  MM_paramList 
Dim  MM_paramIndex 
Dim  MM  nextParam 
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MM_keepMove  =  MM_keepBoth 
MM_moveParam  =  "index" 

'  if  the  page  has  a  repeated  region,  remove  'offset'  from  the  maintained  parameters 
If  (MM  size  >  1)  Then 
MM_moveParam  =  "offset" 

If  (MM_keepMove  <>  "")  Then 
MM_paramList  =  Split(MM_keepMove,  "&") 

MM_keepMove  = "" 

For  MM_paramIndex  =  0  To  UBound(MM_paramList) 

MM_nextParam  =  Left(MM_paramList(MM_paramIndex), 

InStr(MM_paramList(MM_paramIndex),"=")  -  I) 

If  (StrComp(MM_nextParam,MM_moveParam,I)  <>  0)  Then 
MM_keepMove  =  MM_keepMove  &  & 

MM_paraniList(MM_paramIndex) 

End  If 
Next 

If  (MM_keepMove  <>  "")  Then 

MM_keepMove  =  Right(MM_keepMove,  Len(MM_keepMove)  -  I) 

End  If 
End  If 
End  If 

'  set  the  strings  for  the  move  to  links 
If  (MM_keepMove  <>  "")  Then 

MM_keepMove  =  Server.HTMLEncode(MM_keepMove)  &  "&" 

End  If 

MM_urlStr  =  Request.ServerVariables("URL")  &  "?"  &  MM_keepMove  & 
MM_moveParam  &  "=" 

MM_moveFirst  =  MM_urIStr  &  "0" 

MM_moveLast  =  MM_urlStr  &  "-I" 

MM_moveNext  =  MM_urlStr  &  CStr(MM_offset  +  MM_size) 

If  (MM_offset  -  MM_size  <  0)  Then 
MM_movePrev  =  MM_urlStr  &  "0" 

Else 

MM_movePrev  =  MM_urlStr  &  CStr(MM_offset  -  MM_size) 

End  If 

%> 

<!DOCTYPE  html  PUBLIC  "-//W3C//DTD  XHTML  1.0  Transitional//EN" 
"http://www.w3  .org/TR/xhtml  1/DTD/xhtml  1  -transitional.dtd"> 

<html  xmlns="http://www.w3.org/1999/xhtml"> 

<head> 

<title>Distance  Learning:  Subsection  Results</title> 

<meta  http-equiv="Content-Type"  content="text/html;  charset=iso-8859-l"  /> 
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<link  href="DLStylesheet.css"  rel="stylesheet"  type="text/css"  /> 

<style  type="text/css"> 

<!- 
a:  link  { 

color:  #CC3300; 

} 

aivisited  { 

color:  #CC3399; 

} 

a:hover  { 

color:  #000066; 

} 

a:  active  { 

color:  #339933; 

} 

.  style  1  { 

color:  #CC3300; 
font-weight:  bold; 

} 

.style2  { 

color:  #CC0000; 
font-weight:  bold; 

} 

— > 

</style></head> 

<body> 

<table  width="95%"  height="681"  border="0"  align="center"  eellpadding="3" 
cellspacing="0"> 

<tr> 

<td  height="109"><table  width="100%"  border="0"  align="left" 
cellpadding="3"  eellspaeing="0"  bgeolor="#DEDEBC"> 

<tr> 

<td  width="88%"  align="eenter"  valign="niiddle" 

bgcolor="#DEDEBC"><img  sre="Images/nps_banner.gif'  width="447"  height="97"  /> 

</td> 

</tr> 

</table></td> 

</tr> 

<tr> 

<td  height="50"><table  width="72%"  border="0"  align="eenter" 
cellpadding="3"  eellspaeing="0"  bordereolor="#F6F6F3"> 

<tr> 

<td  width="14%"  bgeolor="#DEDEBC"><object 

classid="elsid:D27CDB6E-AE6D-llcf-96B8-444553540000" 

codebase="http://download.macromedia.eom/pub/shoekwave/eabs/flash/swflash.eab#ver 
sion=5, 0,0,0"  width="103"  height="24"> 
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<param  name="movie"  value="button2.swf'  /> 

<param  name="quality"  value="high"  /> 

<param  name="bgcolor"  value="#DEDEBC"  /> 

<embed  src="button2.swf'  quality="high" 

pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?Pl_Prod_Ve 
rsion=ShockwaveFlash"  type="application/x-shockwave-flash"  width="103"  height="24" 
bgcolor="#DEDEBC"></embed> 

</object></td> 

<td  width="14%"  bgcolor="#DEDEBC"><object 

classid="clsid:D27CDB6E-AE6D-llcf-96B8-444553540000" 

codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#ver 
sion=5, 0,0,0"  name=" Search"  width="100"  height="23"  id="Search"> 

<param  name="movie"  value="buttonEswf'  /> 

<param  name="quality"  value="high"  /> 

<param  name="bgcolor"  value="#DEDEBC"  /> 

<embed  src="buttonLswf'  width="100"  height="23"  quality="high" 
pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?Pl_Prod_Ve 
rsion=ShockwaveFlash"  type="application/x-shockwave-flash"  bgcolor="#DEDEBC" 
name="  Search"></embed> 

</object></td> 

<td  width="14%"  bgcolor="#DEDEBC"><object 

classid="clsid:D27CDB6E-AE6D-llcf-96B8-444553540000" 

codebase="http://download.macromedia.coin/pub/shockwave/cabs/flash/swflash.cab#ver 
sion=5,0,0,0"  width="100"  height="23"> 

<param  name="movie"  value="button3.swf'  /> 

<param  name="quality"  value="high"  /> 

<param  name="bgcolor"  value="#DEDEBC"  /> 

<embed  src="button3.swf'  quality="high" 

pluginspage="http://www.macromedia.coin/shockwave/download/index.cgi?Pl_Prod_Ve 
rsion=ShockwaveFlash"  type="application/x-shockwave-flash"  width="100"  height="23" 
bgcolor="#DEDEBC"></embed> 

</object></td> 

<td  width="14%"  bgcolor="#DEDEBC"><object 

classid="clsid:D27CDB6E-AE6D-llcf-96B8-444553540000" 

codebase="http://download.macromedia.coiii/pub/shockwave/cabs/flash/swflash.cab#ver 
sion=5,0,0,0"  width="100"  height="23"> 

<param  name="movie"  value="button4.swf'  /> 

<param  name="quality"  value="high"  /> 

<param  name="bgcolor"  value="#DEDEBC"  /> 

<embed  src="button4.swf'  quality="high" 

pluginspage="http://www.macromedia.coin/shockwave/download/index.cgi?Pl_Prod_Ve 
rsion=ShockwaveFlash"  type="application/x-shockwave-flash"  width="100"  height="23" 
bgcolor="#DEDEBC"></embed> 

</object></td> 

<td  width="14%"  bgcolor="#DEDEBC"><object 

classid="clsid:D27CDB6E-AE6D-llcf-96B8-444553540000" 
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codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#ver 
sion=5, 0,0,0"  width="103"  height="24"> 

<param  name="movie"  value="button5.swf'  /> 

<param  name="quality"  value="high"  /> 

<param  name="bgcolor"  value="#DEDEBC"  /> 

<embed  src="button5.swf'  quality="high" 

pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?Pl_Prod_Ve 
rsion=ShockwaveFlash"  type="application/x-shockwave-flash"  width="103"  height="24" 
bgcolor="#DEDEBC"></embed> 

</object></td> 

</tr> 

</table></td> 


</tr> 

<tr> 

<td  height="68"><hr  /> 

<h3  align="center">  Subsection  Results</h3> 
<p  align="center">&nbsp; 

class="stylel"><%=(rs_recordset_first)%></span> 
class="  style  l"><%=(rs_recordset_last)%></span> 
class="stylel  "><%=(rs_recordset_total)%></span>  </p> 

<tr> 


Records 

to 

of 

</td></tr> 


<td  height-' 1 73  "> 

<div  align="left"> 

<% 

While  ((Repeat  1  numRows  <>  0)  AND  (NOT  rs_recordset.EOF)) 

%> 


</div> 


<span 

<span 

<span 


<hr  align="left"  /> 

<P 

align="center"><strong><%=(rs_recordset.Fields.Item("subsectionName").Value)%></st 

rong></p> 

<p  align="left"><%=(rs_recordset.Fields.Item("content").Value)%></p> 

<p  align="left">&nbsp;</p> 

<p  align="left">Click  at  the  link  below  to  see  <span 
class="stylel  ">Iniages</span>  of 

&quot;<strong><%=(rs_recordset.Fields.Item("subsectionName").Value)%></strong>& 
quot;:  </p> 

<p  align="left"><a 

href="Iniages_Result_Visitor.asp?subsectionid=<%=(rs_recordset.Fields.Item("subsectio 
nid").Value)%>"><strong><%=(rs_recordset.Fields.Item("subsectionName").Value)%>< 
/strong></a>  </p> 

<div  align="left"> 

<% 

Repeat  1 _ index=Repeat  1 _ index+ 1 

Repeat  1 _ numRows=Repeat  1  numRows- 1 

rs_recordset.MoveNext() 
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Wend 

%> 

</div> 

<p  align="left">&nbsp;  </p></td></tr> 

<tr> 

<td  height="173">&nbsp; 

<hr/> 

<p  align="center">Navigate  Result  Pages:  </p> 

<table  width="50%"  border="l"  align="center"  cellpadding="3"> 

<tr> 

<td  width="23%"  align="center"> 

<%  If  MM_offset  <>  0  Then  %> 

<a  href="<%=MM_nioveFirst%>"><inig  src="  Images/First,  gif' 
border=0></a> 

<%  End  If '  end  MM_offset  <>  0  %> 

</td> 

<td  width="3I%"  align="center"> 

<%  If  MM_offset  <>  0  Then  %> 

<a  href="<%=MM_movePrev%>"><inig  src="Images/Previous.gif' 
border=0></a> 

<%  End  If '  end  MM_offset  <>  0  %> 

</td> 

<td  width="23%"  align="center"> 

<%  If  Not  MM_atTotal  Then  %> 

<a  href="<%=MM_moveNext%>"><img  src="Images/Next.gif' 

border=0></a> 

<%  End  If  end  Not  MM_atTotal  %> 

</td> 

<td  width="23%"  align="center"> 

<%  If  Not  MM_atTotal  Then  %> 

<a  href="<%=MM_moveLast%>"><img  src="Images/Last.gif' 

border=0></a> 

<%  End  If  end  Not  MM_atTotal  %> 

</td> 

</tr> 

</table></td> 

</tr> 

</table> 

<p>&nbsp;</p> 

<p>&nbsp;</p> 

</body> 

</html> 

<% 

rs_recordset.Close() 

Set  rs_recordset  =  Nothing 
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42.  login.asp 


%> 


<%@LANGUAGE=" VBSCRIPT"  CODEPAGE='T252"%> 

<!— #include  file="Connections/conn_DistanceLeaming.asp"  — > 

<% 

'  ***  Validate  request  to  log  in  to  this  site. 

MM_LoginAction  =  Request.ServerVariables("URL") 

If  Request.QueryStringo""  Then  MM_LoginAction  =  MM_LoginAction  +  "?"  + 
Server.HTMLEncode(Request.QueryString) 

MM_valUsemanie=CStr(Request.Fomi("usemanie")) 

If  MM  valUsemame  <>  ""  Then 
MM_fldUserAuthorization="userGroup" 
MM_redirectLoginSuccess="Home_Page.asp" 
MM_redirectLoginFailed="login_failed.asp" 

MM_flag="ADODB  .Recordset" 

set  MM_rsUser  =  Server.CreateObject(MM_flag) 

MM_rsUser.ActiveConnection  =  MM_conn_DistanceLeaming_STRING 
MM_rsUser.Source  =  "SELECT  userName,  password" 

If  MM_fldUserAuthorization  <>  ""  Then  MM_rsUser.Source  = 

MM_rsUser.Source  &  &  MM_fldUserAuthorization 

MM_rsUser.Source  =  MM_rsUser.Source  &  "  FROM  User  WHERE 

userName="'  &  Replace(MM_valUsername, AND  password-"  & 
Replace(Request.Form("password"), 

MM_rsUser.CursorType  =  0 
MM_rsUser.CursorLocation  =  2 
MM_rsUser.LockType  =  3 
MM_rsU  ser.  Open 

If  Not  MM  rsUser.EOF  Or  Not  MM  rsUser.BOF  Then 
'  username  and  password  match  -  this  is  a  valid  user 
Session("MM_Usemame")  =  MM_valUsemame 
If  (MM_fldUser Authorization  <>  "")  Then 
Session("MM_UserAuthorization")  = 

C  Str(MM_rsUser.  F  ields  .Item(MM_fldU  ser  Authorization)  .Value) 

Else 

Session("MM_UserAuthorization")  = "" 

End  If 

if  CStr(Request.QueryString("accessdenied"))  <>  ""  And  true  Then 
MM_redirectLoginSuccess  =  Request.QueryString("accessdenied") 

End  If 

MM_rsUser.  Close 

Response.Redirect(MM_redirectLoginSuccess) 

End  If 
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MM_rsUser.  Close 

Response.Redirect(MM_redirectLoginFailed) 

End  If 

%> 

<!DOCTYPE  html  PUBLIC  "-//W3C//DTD  XHTML  I.O  TransitionaI//EN" 
"http://www.w3  .org/TR/xhtml  I /DTD/xhtml  I  -transitional.dtd"> 

<html  xmIns="http://www.w3.org/I999/xhtml"> 

<head> 

<title>Distance  Learning:  Log  In</title> 

<meta  http-equiv="Content-Type"  eontent="text/html;  charset=iso-8859-I"  /> 
<link  href="DLStyIesheet.css"  rel="stylesheet"  type="text/ess"  /> 

<seript  language="JavaScript"  type="text/JavaScript"> 

<!- 

funetion  MM_findObj(n,  d)  { //v4.0I 

var  p,i,x;  if(!d)  d=document;  if((p=n.indexOf("?"))>0&&parent.frames. length) 

{ 

d=parent.frames[n.substring(p+ 1 )]  .document;  n=n.substring(0,p); } 
if(!(x=d[n])&&d.all)  x=d.all[n];  for  (i=0;!x&&i<d.forms.length;i++) 
x=d.  forms  [i][n]; 

for(i=0 ; !  x&&d.  lay  ers&&i<d.  layers .  length;i++) 
x=MM_fmdObj  (n,d.  lay  ers  [i]  .document) ; 

if(!x  &&  d.getElementByld)  x=d.getElementById(n);  return  x; 

} 

function  MM_validateForm()  { //v4.0 

var  i,p,q,nm, test, num, min, max, errors=",args=MM_validateForm.arguments; 
for  (i=0;  i<(args. length-2);  i+=3)  { test=args[i-i-2];  val=MM_findObj(args[i]); 
if  (val)  {  nm=val.name;  if  ((val=val.value)!="")  { 
if  (test.indexOf('isEmair)!=-l)  { p=val.indexOf('@'); 
if  (p<l  II  p==(val.length-l))  errors+='-  '-l-nm-l-'  must  contain  an  e-mail 

address.\n'; 

}  else  if  (test!='R')  {  num  =  parseFloat(val); 
if  (isNaN(val))  errors-i-='-  '+nm+'  must  contain  a  number.\n'; 
if  (test.indexOf('inRange')  !=  -1)  {  p=test.indexOf(':'); 
min=test.substring(8,p);  max=test.substring(p+l); 

if  (num<min  ||  max<num)  errors+='-  '-l-nm-l-'  must  contain  a  number 
between  '-tmin-i-'  and  '-i-max-i-'.\n'; 

}  }  }  else  if  (test.charAt(O)  ==  'R')  errors  -l-=  '-  '-l-nm-l-'  is  required.\n';  } 

}  if  (errors)  alert('The  following  error(s)  occurred:\n'-i-errors); 
document. MM_retumValue  =  (errors  ==  "); 

} 

//-> 

</script> 

</head> 

<body> 
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<table  width="95%"  height="214"  border="0"  align="center"  cellpadding="3" 
cellspacing="0"> 

<tr> 

<td  height="109"><table  width="100%"  border="0"  align="left" 
cellpadding="3"  cellspacing="0"  bgcolor="#DEDEBC"> 

<tr> 

<td  width="88%"  align="  center"  valign="middle" 

bgcolor="#DEDEBC"><img  sre="Images/nps_banner.gif'  width="447"  height="97"  /> 

</td> 

</tr> 

</table></td> 

</tr> 

<tr> 

<td  height="50"><table  width="72%"  border="0"  align="eenter" 
cellpadding="3"  eellspaeing="0"  bordereolor="#F6F6F3"> 

<tr> 

<td  width="14%"  bgeolor="#DEDEBC"><object 

classid="elsid:D27CDB6E-AE6D-llcf-96B8-444553540000" 

codebase="http://download.macromedia.eom/pub/shoekwave/eabs/flash/swflash.eab#ver 
sion=5, 0,0,0"  width="103"  height="24"> 

<param  name="movie"  value="button2.swf'  /> 

<param  name="quality"  value="high"  /> 

<param  name="bgeolor"  value="#DEDEBC"  /> 

<embed  src="button2.swf'  quality="high" 

pluginspage="http://www.maeromedia.coin/shockwave/download/index.cgi?Pl_Prod_Ve 
rsion=ShockwaveFlash"  type="application/x-shockwave-flash"  width="103"  height="24" 
bgcolor="#DEDEBC"></embed> 

</object></td> 

<td  width="14%"  bgeolor="#DEDEBC"><object 

classid="elsid:D27CDB6E-AE6D-llcf-96B8-444553540000" 

codebase="http://download.macromedia.eoin/pub/shoekwave/eabs/flash/swflash.eab#ver 
sion=5,0,0,0"  name="Seareh"  width="100"  height="23"  id="Seareh"> 

<param  name="movie"  value="buttonLswf'  /> 

<param  name="quality"  value="high"  /> 

<param  name="bgcolor"  value="#DEDEBC"  /> 

<embed  src="buttonLswf'  width="100"  height="23"  quality="high" 
pluginspage="http://www.maeromedia.coin/shockwave/download/index.cgi?Pl_Prod_Ve 
rsion=ShockwaveFlash"  type="application/x-shockwave-flash"  bgcolor="#DEDEBC" 
name="  Seareh"></embed> 

</object></td> 

<td  width="14%"  bgeolor="#DEDEBC"><object 

classid="elsid:D27CDB6E-AE6D-llcf-96B8-444553540000" 

codebase="http://download.macromedia.eoin/pub/shoekwave/eabs/flash/swflash.eab#ver 
sion=5,0,0,0"  width="100"  height="23"> 

<param  name="movie"  value="button3.swf'  /> 

<param  name="quality"  value="high"  /> 


343 


<param  name="bgcolor"  value="#DEDEBC"  /> 

<embed  src="button3.swf'  quality="high" 

pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?Pl_Prod_Ve 
rsion=ShockwaveFlash"  type="application/x-shockwave-flash"  width="100"  height="23" 
bgcolor="#DEDEBC"></embed> 

</object></td> 

<td  width="14%"  bgcolor="#DEDEBC"><object 

classid="clsid:D27CDB6E-AE6D-llcf-96B8-444553540000" 

codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#ver 
sion=5, 0,0,0"  width="100"  height="23"> 

<param  name="movie"  value="button4.swf '  /> 

<param  name="quality"  value="high"  /> 

<param  name="bgcolor"  value="#DEDEBC"  /> 

<embed  src="button4.swf'  quality="high" 

pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?Pl_Prod_Ve 
rsion=ShockwaveFlash"  type="application/x-shockwave-flash"  width="100"  height="23" 
bgcolor="#DEDEBC"></embed> 

</object></td> 

<td  width="14%"  bgcolor="#DEDEBC"><object 

classid="clsid:D27CDB6E-AE6D-llcf-96B8-444553540000" 

codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#ver 
sion=5,0,0,0"  width="103"  height="24"> 

<param  name="movie"  value="button5.swf'  /> 

<param  name="quality"  value="high"  /> 

<param  name="bgcolor"  value="#DEDEBC"  /> 

<embed  src="button5.swf'  quality="high" 

pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?Pl_Prod_Ve 
rsion=ShockwaveFlash"  type="application/x-shockwave-flash"  width="103"  height="24" 
bgcolor="#DEDEBC"></embed> 

</object></td> 

</tr> 

</table></td> 

</tr> 

<tr> 

<td><hr  />  <h3  align="center">  Please  Log  In  </h3> 

<hr  />  </td> 

</tr> 

<tr> 

<td><form  name="frm_login"  id="frm_login"  method="POST" 
action="<%=MM_LoginAction%>"> 

<table  width="44%"  border="l"  align="center"  cellpadding="3" 
cellspacing="0"> 

<tr> 

<td  width="40%">Enter  Username:  </td> 

<td  width="60%"><input  name="usemame"  type="text"  id="usemame" 

/></td> 
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</tr> 

<tr> 

<td>Enter  Password:  </td> 

<td><input  name="password"  type="password"  id="password"  /></td> 
</tr> 

<tr> 

<td>&nbsp;</td> 

<td><input  name="  Submit"  type="submit" 

onclick="MM_validateForm('usemameV','R', 'password',", 'R');retum 
document.MM  retumValue"  value=" Submit"  /></td> 

</tr> 

</table> 

</form>  </td> 

</tr> 

</table> 

<p>&nbsp;</p> 

<p>&nbsp;</p> 

</body> 

</html> 
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43.  login_failed.asp 


<%@LANGUAGE="VBSCRIPT"  CODEPAGE="1252"%><!DOCTYPE  html 
PUBLIC  "-//W3C//DTD  XHTML  1.0  Transitional//EN" 

"http://www.w3  .org/TR/xhtml  1/DTD/xhtml  1  -transitional.dtd"> 

<html  xmlns="http://www.w3.org/1999/xhtml"> 

<head> 

<title>Distance  Learning:  Login  Failed</title> 

<meta  http-equiv="Content-Type"  content="text/html;  charset=iso-8859-l"  /> 
<link  href="DLStylesheet.css"  rel="stylesheet"  type="text/css"  /> 

<style  type="text/css"> 

<!- 
a:  link  { 

color:  #CC3300; 

} 

a:visited  { 

color:  #CC3399; 

} 

a:hover  { 

color:  #000099; 

} 

a:  active  { 

color:  #339900; 

} 

— > 

</style></head> 

<body> 

<table  width="95%"  height="214"  border="0"  align="center"  cellpadding="3" 
cellspacing="0"> 

<tr> 

<td  height="109"><table  width="100%"  border="0"  align="lefl" 
cellpadding="3"  cellspacing="0"  bgcolor="#DEDEBC"> 

<tr> 

<td  width="88%"  align="  center"  valign="middle" 

bgcolor="#DEDEBC"><img  src="Images/nps_banner.gif'  width="447"  height="97"  /> 

</td> 

</tr> 

</table></td> 

</tr> 

<tr> 

<td  height="50"><table  width="72%"  border="0"  align="center" 
cellpadding="3"  cellspacing="0"  bordercolor="#F6F6F3"> 
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<tr> 

<td  width="14%"  bgcolor="#DEDEBC"><object 

classid="clsid:D27CDB6E-AE6D-llcf-96B8-444553540000" 

codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#ver 
sion=5, 0,0,0"  width="103"  height="24"> 

<param  name="movie"  value="button2.swf'  /> 

<param  name="quality"  value="high"  /> 

<param  name="bgcolor"  value="#DEDEBC"  /> 

<embed  src="button2.swf'  quality="high" 

pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?Pl_Prod_Ve 
rsion=ShockwaveFlash"  type="application/x-shockwave-flash"  width="103"  height="24" 
bgcolor="#DEDEBC"></embed> 

</object></td> 

<td  width="14%"  bgcolor="#DEDEBC"><object 

classid="clsid:D27CDB6E-AE6D-llcf-96B8-444553540000" 

codebase="htq)://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#ver 
sion=5,0,0,0"  name=" Search"  width="100"  height="23"  id="Search"> 

<param  name="movie"  value="buttonl.swf'  /> 

<param  name="quality"  value="high"  /> 

<param  name="bgcolor"  value="#DEDEBC"  /> 

<embed  src="buttonl.swf'  width="100"  height="23"  quality="high" 
pluginspage="http://www.macromedia.coiii/shockwave/download/index.cgi?Pl_Prod_Ve 
rsion=ShockwaveFlash"  type="application/x-shockwave-flash"  bgcolor="#DEDEBC" 
name="  Search"></embed> 

</object></td> 

<td  width="14%"  bgcolor="#DEDEBC"><object 

classid="clsid:D27CDB6E-AE6D-llcf-96B8-444553540000" 

codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#ver 
sion=5,0,0,0"  width="100"  height="23"> 

<param  name="movie"  value="button3.swf'  /> 

<param  name="quality"  value="high"  /> 

<param  name="bgcolor"  value="#DEDEBC"  /> 

<embed  src="button3.swf'  quality="high" 

pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?Pl_Prod_Ve 
rsion=ShockwaveFlash"  type="applicatioii/x-shockwave-flash"  width="100"  height="23" 
bgcolor="#DEDEBC"></embed> 

</object></td> 

<td  width="14%"  bgcolor="#DEDEBC"><object 

classid="clsid:D27CDB6E-AE6D-llcf-96B8-444553540000" 

codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#ver 
sion=5,0,0,0"  width="100"  height="23"> 

<param  name="movie"  value="button4.swf'  /> 

<param  name="quality"  value="high"  /> 

<param  name="bgcolor"  value="#DEDEBC"  /> 

<embed  src="button4.swf'  quality="high" 

pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?Pl_Prod_Ve 
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rsion=ShockwaveFlash"  type="application/x-shockwave-flash"  width="100"  height="23" 
bgcolor="#DEDEBC"></embed> 

</object></td> 

<td  width="14%"  bgcolor="#DEDEBC"><object 

classid="clsid:D27CDB6E-AE6D-llcf-96B8-444553540000" 

codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#ver 
sion=5, 0,0,0"  width="103"  height="24"> 

<param  name="movie"  value="button5.swf'  /> 

<param  name="quality"  value="high"  /> 

<param  name="bgcolor"  value="#DEDEBC"  /> 

<embed  src="button5.swf'  quality="high" 

pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?Pl_Prod_Ve 
rsion=ShockwaveFlash"  type="application/x-shockwave-flash"  width="103"  height="24" 
bgcolor="#DEDEBC"></embed> 

</object></td> 

</tr> 

</table></td> 

</tr> 

<tr> 

<td><hr  />  <h3  align="center">  Login  Failed  </h3> 

<hr  />  </td> 

</tr> 

<tr> 

<td><div  align="center"> 

<p>Your  username  and  password  combination  was  not  recognized.  <a 
href="login.asp">Try  again</a>.  </p> 

</div></td> 

</tr> 

</table> 

<p>&nbsp;</p> 

<p>&nbsp;</p> 

<^ody> 

</html> 
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44.  registration_failed.asp 


<%@LANGUAGE="VBSCRIPT"  CODEPAGE="1252"%><!DOCTYPE  html 
PUBLIC  "-//W3C//DTD  XHTML  1.0  Transitional//EN" 

"http://www.w3  .org/TR/xhtml  1 /DTD/xhtml  1  -transitional.dtd"> 

<html  xmlns="http://www.w3.org/1999/xhtml"> 

<head> 

<title>Distance  Learning:  Registration  Failed</title> 

<meta  http-equiv="Content-Type"  eontent="text/html;  charset=iso-8859-l"  /> 
<link  href="DLStylesheet.css"  rel="stylesheet"  type="text/ess"  /> 

<style  type="text/css"> 

<!- 
a:  link  { 

color:  #CC3300; 

} 

a:visited  { 

color:  #CC3399; 

} 

a:hover  { 

color:  #000066; 

} 

a:  active  { 

color:  #339900; 

} 

— > 

</style></head> 

<body> 

<table  width="95%"  height="335"  border="0"  align="center"  cellpadding="3" 
cellspacing="0"> 

<tr> 

<td  height="109"><table  width="100%"  border="0"  align="left" 
cellpadding="3"  cellspacing="0"  bgcolor="#DEDEBC"> 

<tr> 

<td  width="88%"  align="  center"  valign="niiddle" 

bgcolor="#DEDEBC"><img  src="Images/nps_banner.gif'  width="447"  height="97"  /> 

</td> 

</tr> 

</table></td> 

</tr> 

<tr> 

<td  height="50"><table  width="72%"  border="0"  align="center" 
cellpadding="3"  cellspacing="0"  bordercolor="#F6F6F3"> 

<tr> 

<td  width="14%"  bgcolor="#DEDEBC"><object 

classid="clsid:D27CDB6E-AE6D-llcf-96B8-444553540000" 
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codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#ver 
sion=5, 0,0,0"  width="103"  height="24"> 

<param  name="movie"  value="button2.swf'  /> 

<param  name="quality"  value="high"  /> 

<param  name="bgcolor"  value="#DEDEBC"  /> 

<embed  src="button2.swf'  quality="high" 

pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?Pl_Prod_Ve 
rsion=ShockwaveFlash"  type="application/x-shockwave-flash"  width="103"  height="24" 
bgcolor="#DEDEBC"></embed> 

</object></td> 

<td  width="14%"  bgcolor="#DEDEBC"><object 

classid="clsid:D27CDB6E-AE6D-llcf-96B8-444553540000" 

codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#ver 
sion=5,0,0,0"  name=" Search"  width="100"  height="23"  id="Search"> 

<param  name="movie"  value="buttonLswf'  /> 

<param  name="quality"  value="high"  /> 

<param  name="bgcolor"  value="#DEDEBC"  /> 

<embed  src="buttonLswf'  width="100"  height="23"  quality="high" 
pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?Pl_Prod_Ve 
rsion=ShockwaveFlash"  type="application/x-shockwave-flash"  bgcolor="#DEDEBC" 
name="  Search"></embed> 

</object></td> 

<td  width="14%"  bgcolor="#DEDEBC"><object 

classid="clsid:D27CDB6E-AE6D-llcf-96B8-444553540000" 

codebase="http://download.macromedia.coin/pub/shockwave/cabs/flash/swflash.cab#ver 
sion=5,0,0,0"  width="100"  height="23"> 

<param  name="movie"  value="button3.swf'  /> 

<param  name="quality"  value="high"  /> 

<param  name="bgcolor"  value="#DEDEBC"  /> 

<embed  src="button3.swf'  quality="high" 

pluginspage="http://www.macromedia.coiii/shockwave/download/index.cgi?Pl_Prod_Ve 
rsion=ShockwaveFlash"  type="application/x-shockwave-flash"  width="100"  height="23" 
bgcolor="#DEDEBC"></embed> 

</object></td> 

<td  width="14%"  bgcolor="#DEDEBC"><object 

classid="clsid:D27CDB6E-AE6D-llcf-96B8-444553540000" 

codebase="http://download.macromedia.coiii/pub/shockwave/cabs/flash/swflash.cab#ver 
sion=5,0,0,0"  width="100"  height="23"> 

<param  name="movie"  value="button4.swf'  /> 

<param  name="quality"  value="high"  /> 

<param  name="bgcolor"  value="#DEDEBC"  /> 

<embed  src="button4.swf'  quality="high" 

pluginspage="http://www.macromedia.coiii/shockwave/download/index.cgi?Pl_Prod_Ve 
rsion=ShockwaveFlash"  type="application/x-shockwave-flash"  width="100"  height="23" 
bgcolor="#DEDEBC"></embed> 

</object></td> 
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<td  width="14%"  bgcolor="#DEDEBC"><object 

classid="clsid:D27CDB6E-AE6D-llcf-96B8-444553540000" 

codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#ver 
sion=5, 0,0,0"  width="103"  height="24"> 

<param  name="movie"  value="button5.swf'  /> 

<param  name="quality"  value="high"  /> 

<param  name="bgcolor"  value="#DEDEBC"  /> 

<embed  src="button5.swf'  quality="high" 

pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?Pl_Prod_Ve 
rsion=ShockwaveFlash"  type="application/x-shockwave-flash"  width="103"  height="24" 
bgcolor="#DEDEBC"></embed> 

</object></td> 

</tr> 

</table></td> 

</tr> 

<tr> 

<td  height="154"><hr />  <h3  align="center">  Registration  Failed  </h3> 

<hr  />  <p  align="center">***The  username  you  have  selected  is  already  in 
use.***  <br  /> 

Please  <a  href="User_Input_Form.asp">retum  to  the  registration  form</a> 
and  choose  a  different  usemame.</p></td> 

</tr> 

</table> 

<p>&nbsp;</p> 

<p>&nbsp;</p> 

</body> 

</html> 
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45.  Search.asp 


<%@LANGUAGE="VBSCRIPT"  CODEPAGE="1252"%><!DOCTYPE  html 
PUBLIC  "-//W3C//DTD  XHTML  1.0  Transitional//EN" 

"http://www.w3  .org/TR/xhtml  1 /DTD/xhtml  1  -transitional.dtd"> 

<html  xmlns="http://www.w3.org/1999/xhtml"> 

<head> 

<title>Distance  Learning:  Search  Page</title> 

<meta  http-equiv="Content-Type"  content="text/html;  charset=iso-8859-l"  /> 
<link  href="DLStylesheet.css"  rel="stylesheet"  type="text/css"  /> 

</head> 

<body> 

<table  width="95%"  height="372"  border="0"  align="center"  cellpadding="3" 
cellspacing="0"> 

<tr> 

<td  height="109"><table  width="100%"  border="0"  align="left" 
cellpadding="3"  cellspacing="0"  bgcolor="#DEDEBC"> 

<tr> 

<td  width="88%"  align="  center"  valign="middle" 

bgcolor="#DEDEBC"><img  src="Images/nps_banner.gif'  width="447"  height="97"  /> 

</td> 

</tr> 

</table></td> 

</tr> 

<tr> 

<td  height="50"><table  width="72%"  border="0"  align="center" 
cellpadding="3"  cellspacing="0"  bordercolor="#F6F6F3"> 

<tr> 

<td  width="14%"  bgcolor="#DEDEBC"><object 

classid="clsid:D27CDB6E-AE6D-llcf-96B8-444553540000" 

codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#ver 
sion=5, 0,0,0"  width='T03"  height="24"> 

<param  name="movie"  value="button2.swf'  /> 

<param  name="quality"  value="high"  /> 

<param  name="bgcolor"  value="#DEDEBC"  /> 

<embed  src="button2.swf'  quality="high" 

pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?Pl_Prod_Ve 
rsion=ShockwaveFlash"  type="application/x-shockwave-flash"  width='T03"  height="24" 
bgcolor="#DEDEBC"></embed> 

</object></td> 

<td  width="14%"  bgcolor="#DEDEBC"><object 

classid="clsid:D27CDB6E-AE6D-llcf-96B8-444553540000" 

codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#ver 
sion=5,0,0,0"  name=" Search"  width="103"  height="24"  id="Search"> 

<param  name="movie"  value="buttonl.swf'  /> 
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<param  name="quality"  value="high"  /> 

<param  name="bgcolor"  value="#DEDEBC"  /> 

<embed  src="buttonl.swf'  width="103"  height="24"  quality="high" 
pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?Pl_Prod_Ve 
rsion=ShockwaveFlash"  type="application/x-shockwave-flash"  bgcolor="#DEDEBC" 
name="  Search"></embed> 

</object></td> 

<td  width="14%"  bgcolor="#DEDEBC"><object 

classid="clsid:D27CDB6E-AE6D-llcf-96B8-444553540000" 

codebase="htq)://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#ver 
sion=5, 0,0,0"  width="103"  height="24"> 

<param  name="movie"  value="button3.swf'  /> 

<param  name="quality"  value="high"  /> 

<param  name="bgcolor"  value="#DEDEBC"  /> 

<embed  src="button3.swf'  quality="high" 

pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?Pl_Prod_Ve 
rsion=ShockwaveFlash"  type="application/x-shockwave-flash"  width="103"  height="24" 
bgcolor="#DEDEBC"></embed> 

</object></td> 

<td  width="14%"  bgcolor="#DEDEBC"><object 

classid="clsid:D27CDB6E-AE6D-llcf-96B8-444553540000" 

codebase="htq?://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#ver 
sion=5,0,0,0"  width="103"  height="24"> 

<param  name="movie"  value="button4.swf '  /> 

<param  name="quality"  value="high"  /> 

<param  name="bgcolor"  value="#DEDEBC"  /> 

<embed  src="button4.swf'  quality="high" 

pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?Pl_Prod_Ve 
rsion=ShockwaveFlash"  type="application/x-shockwave-flash"  width="103"  height="24" 
bgcolor="#DEDEBC"></embed> 

</object></td> 

<td  width="14%"  bgcolor="#DEDEBC"><object 

classid="clsid:D27CDB6E-AE6D-llcf-96B8-444553540000" 

codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#ver 
sion=5,0,0,0"  width="103"  height="24"> 

<param  name="movie"  value="button5.swf'  /> 

<param  name="quality"  value="high"  /> 

<param  name="bgcolor"  value="#DEDEBC"  /> 

<embed  src="button5.swf'  quality="high" 

pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?Pl_Prod_Ve 
rsion=ShockwaveFlash"  type="application/x-shockwave-flash"  width="103"  height="24" 
bgcolor="#DEDEBC"></embed> 

</object></td> 

</tr> 

</table></td> 

</tr> 
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<tr> 

<td  height="79"><hr  /> 

<h3  align="center">  Search  Page 

</h3> 

<hr  />  </td></tr> 

<tr> 

<td><form  name="forml"  id="formr'  method="get" 

action="Course_Request.asp?radiobutton"> 

<table  width="36%"  border="l"  align="center"  cellpadding="3" 
cellspacing="0"> 

<tr> 

<td  colspan="2"><div  align="center">How  do  you  want  to  search  for 
content?  </div></td> 

</tr> 

<tr> 

<td  width="l  l%"><div  align="center"> 

<input  name="radiobutton"  type="radio"  value="0"  checked="checked" 

/> 

</div></td> 

<td  width="89%"><strong>By  Course</strong></td> 

</tr> 

<tr> 

<td><div  align="center"> 

<input  name="radiobutton"  type="radio"  value="  1 "  /> 

</div></td> 

<td><strong>By  Keywords</strong></td> 

</tr> 

<tr> 

<td  colspan="2"><input  name=" Submit"  type="submit"  value=" Submit" 

/></td> 

</tr> 

</table> 

</form>  </td> 

</tr> 

<tr> 

<td>&nbsp;</td> 

</tr> 

</table> 

<p>&nbsp;</p> 

<p>&nbsp;</p> 

</body> 

</html> 
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46.  Subject_Request.asp 


<%@LANGUAGE=" VBSCRIPT"  CODEPAGE='T252"%> 

<!— #include  file="Connections/conn_DistanceLeaming.asp"  — > 

<% 

Dim  rs_subject _ MMColParam 

rssubject _ MMColParam  =  "1" 

If  (Request.Form("courseid")  <>  "")  Then 

rs_subject _ MMColParam  =  Request.Form("courseid") 

End  If 
%> 

<% 

Dim  rs  subject 

Dim  rs_subject_nuniRows 

Set  rs  subject  =  Server.CreateObject("ADODB.Recordset") 
rssubject.ActiveConnection  =  MM_conn_DistanceLeaming_STRING 
rs  subject. Source  =  "SELECT  subjectid,  subjectName  FROM  Subject  WHERE 

courseid  =  "  +  Replace(rs_subject _ MMColParam,  """)  +  "  ORDER  BY 

subjectName  ASC" 

rs_subject.CursorType  =  0 
rs_subject.CursorLocation  =  2 
rs_subject.LockType  =  1 
rs_subj  ect.  Open() 

rssubjectnumRows  =  0 

%> 

<!DOCTYPE  html  PUBLIC  "-//W3C//DTD  XHTML  1.0  Transitional//EN" 
"http://www.w3  .org/TR/xhtml  1/DTD/xhtml  1  -transitional.dtd"> 

<html  xmlns="http://www.w3.org/1999/xhtml"> 

<head> 

<title>Distance  Learning:  Subject  Request</title> 

<meta  http-equiv="Content-Type"  content="text/html;  charset=iso-8859-l"  /> 
<link  href="DLStylesheet.css"  rel="stylesheet"  type="text/css"  /> 

</head> 

<body> 

<table  width="95%"  height="295"  border="0"  align="center"  cellpadding="3" 
cellspacing="0"> 

<tr> 

<td  height="109"><table  width="100%"  border="0"  align="left" 
cellpadding="3"  cellspacing="0"  bgcolor="#DEDEBC"> 

<tr> 

<td  width="88%"  align="  center"  valign="middle" 

bgcolor="#DEDEBC"><img  src="Images/nps_banner.gif'  width="447"  height="97"  /> 

</td> 
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</tr> 

</table></td> 

</tr> 

<tr> 

<td  height="50"><table  width="72%"  border="0"  align="center" 
cellpadding="3"  cellspacing="0"  bordercolor="#F6F6F3"> 

<tr> 

<td  width="14%"  bgcolor="#DEDEBC"><object 

classid="clsid:D27CDB6E-AE6D-llcf-96B8-444553540000" 

codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#ver 
sion=5, 0,0,0"  width="103"  height="24"> 

<param  name="movie"  value="button2.swf'  /> 

<param  name="quality"  value="high"  /> 

<param  name="bgcolor"  value="#DEDEBC"  /> 

<embed  src="button2.swf'  quality="high" 

pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?Pl_Prod_Ve 
rsion=ShockwaveFlash"  type="application/x-shockwave-flash"  width="103"  height="24" 
bgcolor="#DEDEBC"></embed> 

</object></td> 

<td  width="14%"  bgcolor="#DEDEBC"><object 

classid="clsid:D27CDB6E-AE6D-llcf-96B8-444553540000" 

codebase="htq?://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#ver 
sion=5,0,0,0"  name=" Search"  width="100"  height="23"  id="Search"> 

<param  name="movie"  value="buttonl.swf'  /> 

<param  name="quality"  value="high"  /> 

<param  name="bgcolor"  value="#DEDEBC"  /> 

<embed  src="buttonl.swf'  width="100"  height="23"  quality="high" 
pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?Pl_Prod_Ve 
rsion=ShockwaveFlash"  type="application/x-shockwave-flash"  bgcolor="#DEDEBC" 
name="  Search"></embed> 

</object></td> 

<td  width="14%"  bgcolor="#DEDEBC"><object 

classid="clsid:D27CDB6E-AE6D-llcf-96B8-444553540000" 

codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#ver 
sion=5,0,0,0"  width="100"  height="23"> 

<param  name="movie"  value="button3.swf'  /> 

<param  name="quality"  value="high"  /> 

<param  name="bgcolor"  value="#DEDEBC"  /> 

<embed  src="button3.swf'  quality="high" 

pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?Pl_Prod_Ve 
rsion=ShockwaveFlash"  type="application/x-shockwave-flash"  width="100"  height="23" 
bgcolor="#DEDEBC"></embed> 

</object></td> 

<td  width="14%"  bgcolor="#DEDEBC"><object 

classid="clsid:D27CDB6E-AE6D-llcf-96B8-444553540000" 
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codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#ver 
sion=5, 0,0,0"  width="100"  height="23"> 

<param  name="movie"  value="button4.swf'  /> 

<param  name="quality"  value="high"  /> 

<param  name="bgcolor"  value="#DEDEBC"  /> 

<embed  src="button4.swf'  quality="high" 

pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?Pl_Prod_Ve 
rsion=ShockwaveFlash"  type="application/x-shockwave-flash"  width="100"  height="23" 
bgcolor="#DEDEBC"></embed> 

</object></td> 

<td  width="14%"  bgcolor="#DEDEBC"><object 

classid="clsid:D27CDB6E-AE6D-llcf-96B8-444553540000" 

codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#ver 
sion=5,0,0,0"  width="103"  height="24"> 

<param  name="movie"  value="button5.swf'  /> 

<param  name="quality"  value="high"  /> 

<param  name="bgcolor"  value="#DEDEBC"  /> 

<embed  src="button5.swf'  quality="high" 

pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?Pl_Prod_Ve 
rsion=ShockwaveFlash"  type="application/x-shockwave-flash"  width="103"  height="24" 
bgcolor="#DEDEBC"></embed> 

</object></td> 

</tr> 

</table></td> 

</tr> 

<tr> 

<tdheight="75"><hr/>  <h3  align="center">  Subject  Request</h3> 

<hr/> 

</td> 

</tr> 

<tr> 

<td><form  name="frmSubject"  id="frmSubject"  method="post" 
action="Topic_Request.asp"> 

<div  align="center">Select  Subject: 

<select  name="subjectid"  id="subjectid"> 

<% 

While  (NOT  rs  subject.EOF) 

%> 

<option 

value="<%=(rs_subject.Fields.Item("subjectid").Value)%>"><%=(rs_subject.Fields.Item 

("subjectName").Value)%></option> 

<% 

rs  subiect.MoveNextO 

Wend 

If  (rs_subject.CursorType  >  0)  Then 
rs_subject.MoveFirst 
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Else 

rs_subj  ect. Requery 
End  If 

%> 

</select> 

<input  type="submit"  name=" Submit"  value=" Submit"  /> 
</div> 

</form></td> 

</tr> 

</table> 

<p>&nbsp;</p> 

<p>&nbsp;</p> 

<^ody> 

</html> 

<% 

rs_subject.Close() 

Set  rs_subject  =  Nothing 

%> 
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47.  Subsection_RequestNPS.asp 


<%@LANGUAGE=" VBSCRIPT"  CODEPAGE='T252"%> 

<!— #include  file="Connections/conn_DistanceLeaming.asp"  — > 

<% 

Dim  rs_topicSubsection _ MMColParam 

rs_topic  Subsection _ MMColParam  =  "0" 

If  (Request.Form("topicid")  <>  "")  Then 

rstopicSubsection _ MMColParam  =  Request.Form("topicid") 

End  If 
%> 

<% 

Dim  rs_topicSubsection 

Dim  rs_topicSubsection_numRows 

Set  rs  topicSubsection  =  Server.CreateObject("ADODB.Recordset") 
rs_topicSubsection.ActiveConnection  =  MM_conn_DistanceLeaming_STRING 
rs_topicSubsection.Source  =  "SELECT  Subsection.subsectionName, 
Subsection,  subsectionid  FROM  Subsection, Topic_Has_Subsections  WHERE 
Subsection.subsectionid=Topic_Has_Subsections.subsectionid  AND 

Topic  Has  Subsections.topicid  =  "  +  Replace(rs_topicSubsection _ MMColParam, 

""")  +  "  ORDER  BY  Subsection.subsectionName  ASC" 
rs_topicSubsection.CursorType  =  0 
rs_topicSubsection.CursorLocation  =  2 
rs_topicSubsection.LockType  =  1 
rs_topicSubsection.Open() 

rs_topicSubsection_numRows  =  0 

%> 

<!DOCTYPE  html  PUBLIC  "-//W3C//DTD  XHTML  1.0  Transitional//EN" 
"http://www.w3  .org/TR/xhtml  1/DTD/xhtml  1  -transitional.dtd"> 

<html  xmlns="http://www.w3.org/1999/xhtml"> 

<head> 

<title>Distance  Learning:  Subsection  Request  NPS</title> 

<meta  http-equiv="Content-Type"  content="text/html;  charset=iso-8859-l"  /> 
<link  href="DLStylesheet.css"  rel="stylesheet"  type="text/css"  /> 

</head> 

<body> 

<table  width="95%"  height="214"  border="0"  align="center"  cellpadding="3" 
cellspacing="0"> 

<tr> 

<td  height="109"><table  width='T00%"  border="0"  align="left" 
cellpadding="3"  cellspacing="0"  bgcolor="#DEDEBC"> 

<tr> 
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<td  width="88%"  align="  center"  valign="middle" 

bgcolor="#DEDEBC"><img  sre="Images/nps_banner.gif'  width="447"  height="97"  /> 

</td> 

</tr> 

</table></td> 

</tr> 

<tr> 

<td  height="50"><table  width="72%"  border="0"  align="eenter" 
cellpadding="3"  eellspaeing="0"  bordereolor="#F6F6F3"> 

<tr> 

<td  width="14%"  bgeolor="#DEDEBC"><object 

classid="elsid:D27CDB6E-AE6D-llcf-96B8-444553540000" 

codebase="http://download.macromedia.eom/pub/shoekwave/eabs/flash/swflash.eab#ver 
sion=5, 0,0,0"  width="103"  height="24"> 

<param  name="movie"  value="button2.swf'  /> 

<param  name="quality"  value="high"  /> 

<param  name="bgcolor"  value="#DEDEBC"  /> 

<embed  src="button2.swf'  quality="high" 

pluginspage="http://www.maeromedia.com/shockwave/download/index.cgi?Pl_Prod_Ve 
rsion=ShockwaveFlash"  type="application/x-shockwave-flash"  width="103"  height="24" 
bgcolor="#DEDEBC"></embed> 

</object></td> 

<td  width="14%"  bgeolor="#DEDEBC"><object 

classid="elsid:D27CDB6E-AE6D-llcf-96B8-444553540000" 

codebase="http://download.macromedia.eoin/pub/shoekwave/eabs/flash/swflash.eab#ver 
sion=5,0,0,0"  name="Seareh"  width="100"  height="23"  id="Seareh"> 

<param  name="movie"  value="buttonl.swf'  /> 

<param  name="quality"  value="high"  /> 

<param  name="bgcolor"  value="#DEDEBC"  /> 

<embed  src="buttonl.swf'  width="100"  height="23"  quality="high" 
pluginspage="http://www.maeromedia.coin/shockwave/download/index.cgi?Pl_Prod_Ve 
rsion=ShockwaveFlash"  type="application/x-shockwave-flash"  bgcolor="#DEDEBC" 
name="  Seareh"></embed> 

</object></td> 

<td  width="14%"  bgeolor="#DEDEBC"><object 

classid="elsid:D27CDB6E-AE6D-llcf-96B8-444553540000" 

codebase="http://download.macromedia.eoin/pub/shoekwave/cabs/flash/swflash.eab#ver 
sion=5,0,0,0"  width="100"  height="23"> 

<param  name="movie"  value="button3.swf'  /> 

<param  name="quality"  value="high"  /> 

<param  name="bgcolor"  value="#DEDEBC"  /> 

<embed  src="button3.swf'  quality="high" 

pluginspage="http://www.maeromedia.coin/shockwave/download/index.cgi?Pl_Prod_Ve 
rsion=ShockwaveFlash"  type="application/x-shockwave-flash"  width="100"  height="23" 
bgcolor="#DEDEBC"></embed> 

</object></td> 
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<td  width="14%"  bgcolor="#DEDEBC"><object 

classid="clsid:D27CDB6E-AE6D-llcf-96B8-444553540000" 

codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#ver 
sion=5, 0,0,0"  width="100"  height="23"> 

<param  name="movie"  value="button4.swf'  /> 

<param  name="quality"  value="high"  /> 

<param  name="bgcolor"  value="#DEDEBC"  /> 

<embed  src="button4.swf'  quality="high" 

pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?Pl_Prod_Ve 
rsion=ShockwaveFlash"  type="application/x-shockwave-flash"  width="100"  height="23" 
bgcolor="#DEDEBC"></embed> 

</object></td> 

<td  width="14%"  bgcolor="#DEDEBC"><object 

classid="clsid:D27CDB6E-AE6D-llcf-96B8-444553540000" 

codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#ver 
sion=5,0,0,0"  width="103"  height="24"> 

<param  name="movie"  value="button5.swf'  /> 

<param  name="quality"  value="high"  /> 

<param  name="bgcolor"  value="#DEDEBC"  /> 

<embed  src="button5.swf'  quality="high" 

pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?Pl_Prod_Ve 
rsion=ShockwaveFlash"  type="application/x-shockwave-flash"  width="103"  height="24" 
bgcolor="#DEDEBC"></embed> 

</object></td> 

</tr> 

</table></td> 

</tr> 

<tr> 

<td><hr  />  <h3  align="center">  Subsection  Request  </h3> 

<hr  />  </td> 

</tr> 

<tr> 

<td> 

<form  action="Subsection_Results.asp?subsectionid"  method="get" 
enctype="multipart/form-data"  name="frmSubsection"  id="frmSubsection"> 

<div  align="center">Select  Subsection: 

<select  nanie="subsectionid"  id="subsectionid"> 

<% 

While  (NOT  rs  topicSubsection.EOF) 

%> 

<option 

value="<%=(rs_topicSubsection.Fields.Item("subsectionid").Value)%>"><%=(rs_topicS 

ubsection.Fields.Item("subsectionName").Value)%></option> 

<% 

rs_topicSubsection.MoveNext() 

Wend 
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If  (rs  topicSubsection.CursorType  >  0)  Then 
rs_topicSubsection.MoveFirst 
Else 

rs_topicSubsection.Requery 
End  If 

%> 

</select> 

<input  type="subniit"  nanie=" Submit"  value=" Submit"  /> 
</div> 

</ form></td></tr> 

</table> 

<p>&nbsp;</p> 

<p>&nbsp;</p> 

</body> 

</html> 

<% 

rs_topicSubsection.Close() 

Set  rs_topicSubsection  =  Nothing 


48.  Subsection_Results.asp 


<%@LANGUAGE=" VBSCRIPT"  CODEPAGE='T252"%> 

<!— #include  file="Connections/conn_DistanceLeaming.asp"  — > 

<% 

Dim  rsgraphic _ MMColParam 

rsgraphic _ MMColParam  =  "0" 

If  (Request.QueryStringC'subsectionid")  <>  "")  Then 

rs_graphic _ MMColParam  =  Request.QueryString("subsectionid") 

End  If 
%> 

<% 

Dim  rs  graphic 

Dim  rs_graphic_numRows 

Set  rs  graphic  =  Server.CreateObject("ADODB.Recordset") 
rsgraphic.ActiveConnection  =  MM_conn_DistanceLeaming_STRING 
rs  graphic. Source  =  "SELECT  Graphic.graphicid,  Graphic.graphicName  FROM 
Graphic, Subsection_Has_Graphics  WHERE 

Graphic. graphicid=Subsection_Has_Graphics.graphicid  AND 

Subsection_Has_Graphics.subsectionid  =  "  +  Replace(rs_graphic _ MMColParam, 

_|_  MM 

rsgraphic.CursorType  =  0 
rs_graphic.CursorLocation  =  2 
rsgraphic.LockType  =  1 
rs_graphic .  Open() 

rs_graphic_numRows  =  0 

%> 

<% 

Dim  rssubsection _ MMColParam 

rssubsection _ MMColParam  =  "0" 

If  (Request.QuerystringC'subsectionid")  <>  "")  Then 

rs_subsection _ MMColParam  =  Request. Querystring("subsectionid") 

End  If 
%> 

<% 

Dim  rs  subsection 

Dim  rs_subsection_numRows 

Set  rs  subsection  =  Server.CreateObject("ADODB.Recordset") 
rs_subsection.ActiveConnection  =  MM_conn_DistanceLeaming_STRING 
rs  subsection. Source  =  "SELECT  *  FROM  Subsection  WHERE  subsectionid  = 

"  +  Replace(rs_subsection _ MMColParam, """)  +  "" 

rs_subsection.CursorType  =  0 
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rs_subsection.CursorLocation  =  2 
rs_subsection.LockType  =  1 
rs_subsection.Open() 

rs_subsection_nuniRows  =  0 

%> 

<% 

'  ***  Recordset  Stats,  Move  To  Record,  and  Go  To  Record:  declare  stats 

variables 

Dim  rs_subsection_total 
Dim  rssubsectionfirst 
Dim  rssubsectionlast 

'  set  the  record  count 

rs_subsection_total  =  rs_subsection.RecordCount 

'  set  the  number  of  rows  displayed  on  this  page 
If  (rs_subsection_nuniRows  <  0)  Then 
rs_subsection_numRows  =  rs_subsection_total 
Elseif  (rs  subsection  numRows  =  0)  Then 
rssubsectionnumRows  =  1 
End  If 

'  set  the  first  and  last  displayed  record 
rs_subsection_first  =  1 

rs_subsection_last  =  rs_subsection_first  +  rs_subsection_numRows  -  1 

'  if  we  have  the  correct  record  count,  check  the  other  stats 
If  (rs  subsection  total  <>  -I)  Then 
If  (rs_subsection_first  >  rs_subsection_total)  Then 
rs_subsection_first  =  rs_subsection_totaI 
End  If 

If  (rs_subsection_Iast  >  rs_subsection_totaI)  Then 
rs_subsection_last  =  rs_subsection_total 
End  If 

If  (rs_subsection_numRows  >  rs_subsection_total)  Then 
rs_subsection_nuniRows  =  rs_subsection_total 
End  If 
End  If 

%> 

<% 

'  ***  Recordset  Stats:  if  we  don't  know  the  record  count,  manually  count  them 
If  (rs_subsection_total  =  -1)  Then 
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'  count  the  total  records  by  iterating  through  the  recordset 
rs_subsection_total=0 
While  (Not  rs  subsection.EOF) 
rs_subsection_total  =  rs_subsection_total  +  1 
rs_subsection.MoveNext 
Wend 

'  reset  the  cursor  to  the  beginning 
If  (rs  subsection.CursorXype  >  0)  Then 
rs_subsection.MoveFirst 
Else 

rs_subsection.Requery 
End  If 

'  set  the  number  of  rows  displayed  on  this  page 

If  (rssubsectionnumRows  <  0  Or  rssubsectionnumRows  > 

rs_subsection_total)  Then 

rs_subsection_numRows  =  rs_subsection_total 
End  If 

'  set  the  first  and  last  displayed  record 
rs_subsection_first  =  1 

rs_subsection_last  =  rs_subsection_first  +  rs_subsection_numRows  -  1 

If  (rs_subsection_first  >  rs_subsection_total)  Then 
rs_subsection_first  =  rs_subsection_total 
End  If 

If  (rs_subsection_last  >  rs_subsection_total)  Then 
rs_subsection_last  =  rs_subsection_total 
End  If 

End  If 

%> 

<!DOCTYPE  html  PUBLIC  "-//W3C//DTD  XHTML  1.0  Transitional//EN" 
"http://www.w3  .org/TR/xhtml  1 /DTD/xhtml  1  -transitional.dtd"> 

<html  xmlns="http  ://www. w3  .org/ 1 999/xhtml"> 

<head> 

<title>Distance  Learning:  Subsection  Text</title> 

<meta  http-equiv="Content-Type"  content="text/html;  charset=iso-8859-l"  /> 
<link  href="DLStylesheet.css"  rel="stylesheet"  type="text/css"  /> 

<style  type="text/css"> 

<!- 

.  style  1  { 

color:  #CC3300; 
font-weight:  bold; 

} 
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.style2  {color:  #CC3300} 
a:  link  { 

color:  #CC3300; 

} 

a:visited  { 

color:  #CC3399; 

} 

a:hover  { 

color:  #000099; 

} 

a:  active  { 

color:  #339900; 

} 

.style3  { 

color:  #CC0000; 
font-weight:  bold; 

} 

— > 

</style> 

</head> 

<body> 

<table  width="95%"  height="214"  border="0"  align="center"  eellpadding="3" 
cellspacing="0"> 

<tr> 

<td  height="109"><table  width="100%"  border="0"  align="left" 
cellpadding="3"  eellspaeing="0"  bgeolor="#DEDEBC"> 

<tr> 

<td  width="88%"  align="eenter"  valign="middle" 

bgcolor="#DEDEBC"><img  sre="Images/nps_banner.gif'  width="447"  height="97"  /> 

</td> 

</tr> 

</table></td> 

</tr> 

<tr> 

<td  height="50"><table  width="72%"  border="0"  align="eenter" 
cellpadding="3"  eellspaeing="0"  bordereolor="#F6F6F3"> 

<tr> 

<td  width="14%"  bgeolor="#DEDEBC"><object 

classid="elsid:D27CDB6E-AE6D-llcf-96B8-444553540000" 

codebase="http://download.macromedia.eom/pub/shoekwave/eabs/flash/swflash.eab#ver 
sion=5, 0,0,0"  width="103"  height="24"> 

<param  name="movie"  value="button2.swf'  /> 

<param  name="quality"  value="high"  /> 

<param  name="bgcolor"  value="#DEDEBC"  /> 

<embed  src="button2.swf'  quality="high" 

pluginspage="http://www.maeromedia.com/shockwave/download/index.cgi?Pl_Prod_Ve 
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rsion=ShockwaveFlash"  type="application/x-shockwave-flash"  width="103"  height="24" 
bgcolor="#DEDEBC"></embed> 

</object></td> 

<td  width="14%"  bgcolor="#DEDEBC"><object 

classid="clsid:D27CDB6E-AE6D-llcf-96B8-444553540000" 

codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#ver 
sion=5, 0,0,0"  name=" Search"  width="100"  height="23"  id="Search"> 

<param  name="movie"  value="buttonl.swf'  /> 

<param  name="quality"  value="high"  /> 

<param  name="bgcolor"  value="#DEDEBC"  /> 

<embed  src="buttonl.swf'  width="100"  height="23"  quality="high" 
pluginspage="http://www.macromedia.coiii/shockwave/download/index.cgi?Pl_Prod_Ve 
rsion=ShockwaveFlash"  type="application/x-shockwave-flash"  bgcolor="#DEDEBC" 
name="  Search"></embed> 

</object></td> 

<td  width="14%"  bgcolor="#DEDEBC"><object 

classid="clsid:D27CDB6E-AE6D-llcf-96B8-444553540000" 

codebase="htq)://download.macromedia.coiii/pub/shockwave/cabs/flash/swflash.cab#ver 
sion=5,0,0,0"  width="100"  height="23"> 

<param  name="movie"  value="button3.swf'  /> 

<param  name="quality"  value="high"  /> 

<param  name="bgcolor"  value="#DEDEBC"  /> 

<embed  src="button3.swf'  quality="high" 

pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?Pl_Prod_Ve 
rsion=ShockwaveFlash"  type="application/x-shockwave-flash"  width="100"  height="23" 
bgcolor="#DEDEBC"></embed> 

</object></td> 

<td  width="14%"  bgcolor="#DEDEBC"><object 

classid="clsid:D27CDB6E-AE6D-llcf-96B8-444553540000" 

codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#ver 
sion=5,0,0,0"  width="100"  height="23"> 

<param  name="movie"  value="button4.swf'  /> 

<param  name="quality"  value="high"  /> 

<param  name="bgcolor"  value="#DEDEBC"  /> 

<embed  src="button4.swf'  quality="high" 

pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?Pl_Prod_Ve 
rsion=ShockwaveFlash"  type="application/x-shockwave-flash"  width="100"  height="23" 
bgcolor="#DEDEBC"></embed> 

</object></td> 

<td  width="14%"  bgcolor="#DEDEBC"><object 

classid="clsid:D27CDB6E-AE6D-llcf-96B8-444553540000" 

codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#ver 
sion=5,0,0,0"  width="103"  height="24"> 

<param  name="movie"  value="button5.swf'  /> 

<param  name="quality"  value="high"  /> 

<param  name="bgcolor"  value="#DEDEBC"  /> 
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<embed  src="button5.swf'  quality="high" 

pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?Pl_Prod_Ve 
rsion=ShockwaveFlash"  type="application/x-shockwave-flash"  width="103"  height="24" 
bgcolor="#DEDEBC"></embed> 

</object></td> 

</tr> 

</table></td> 

</tr> 

<tr> 

<td>  <hr  />  <h3  align="center">  Subsection  Results</h3> 

<hr  />  </td></tr> 

<tr> 

<td><p 

align="center"><strong><%=(rs_subsection.Fields.Item("subsectionName").Value)%></ 

strong></p> 

<p  align="left"><%=(rs_subsection.Fields.Item("content").Value)%></p></td> 

</tr> 

<tr> 

<td><p>&nbsp;</p> 

<p>If  you  want  to  see  an  <span  class="stylel">Iniage</span>  for  this 
Subsection,  select  an  Image  from  the  list  below:</p> 

<form  name="frmlmage"  id="frmlmage"  method="get" 

action="Image_Result.asp?graphicid"> 

<div  align="center"><br  /> 

Select  an  <span  class="style2">Image</span>: 

<select  name="graphicid"  id="graphicid"> 

<% 

While  (NOT  rs  graphic.EOF) 

%> 

<option 

value="<%=(rs_graphic.Fields.Item("graphicid").Value)%>"><%=(rs_graphic.Fields.Ite 

m("graphicName").Value)%></option> 

<% 

rs_graphic  .MoveN  ext() 

Wend 

If  (rs_graphic.CursorType  >  0)  Then 
rs_graphic .  MoveF  irst 
Else 

rs_graphic .  Requery 
End  If 

%> 

</seIect> 

<input  type="submit"  name="Submit"  value=" Submit"  /> 

</div> 

</form> 

<p  align="Ieft">&nbsp;</p> 
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<p  align="left">If  you  want  to  see  all  <span 
class=" style l">Images</span>  for  this  Subsection,  click  this  link:&nbsp;&nbsp;<a 
href="Image_Result_All_NPS.asp?subsectionid=<%=(rs_subsection.Fields.Item("subsec 
tionid").Value)%>">See  All  Iniages</a>  </p></td> 

</tr> 

</table> 

<p>&nbsp;</p> 

<p>&nbsp;</p> 

<^ody> 

</html> 

<% 

rs_graphic.Close() 

Set  rs_graphic  =  Nothing 

%> 

<% 

rs_subsection.Close() 

Set  rs_subsection  =  Nothing 

%> 
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49.  Testl_Confirm.asp 


<%@LANGUAGE=" VBSCRIPT"  CODEPAGE='T252"%> 

<!— #include  file="Connections/conn_DistanceLeaming.asp"  — > 

<% 

'  ***  Restrict  Access  To  Page:  Grant  or  deny  access  to  this  page 
MM_authorizedUsers="admin, professor" 

MM_authFailedURL="  login,  asp" 

MM_grantAccess=false 
If  Session("MM_Usemame")  <>  ""  Then 
If  (false  Or  CStr(Session("MM_UserAuthorization"))="")  Or  _ 

(InStr(l,MM_authorizedUsers,Session("MM_UserAuthorization"))>=l) 

Then 

MM_grantAccess  =  true 
End  If 
End  If 

If  Not  MM_grantAccess  Then 
MM_qsChar  =  "?" 

If  (InStr(l,MM_authFailedURL,"?")  >=  1)  Then  MM  qsChar  =  "&" 
MM_referrer  =  Request.  ServerVariables("URL") 

if  (Len(Request.QueryString())  >  0)  Then  MM_referrer  =  MM_referrer  &  "?"  & 
Request.QueryStringO 

MM_authFailedURL  =  MM_authFailedURL  &  MM_qsChar  &  "accessdenied=" 
&  Server.URLEncode(MM_referrer) 

Response.Redirect(MM_authFailedURL) 

End  If 

%> 

<% 

'  ***  Edit  Operations:  declare  variables 

Dim  MMeditAction 
Dim  MMabortEdit 
Dim  MMeditQuery 
Dim  MM_editCmd 

Dim  MM_editConnection 
Dim  MM_editTable 
Dim  MMeditRedirectUrl 
Dim  MMeditColumn 
Dim  MM_recordId 

Dim  MMfieldsStr 
Dim  MMcolumnsStr 
Dim  MM_fields 
Dim  MM  columns 
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Dim  MMtypeArray 
Dim  MMformVal 
Dim  MMdelim 
Dim  MMaltVal 
Dim  MM_emptyVal 
Dim  MM_i 

MM_editAction  =  CStr(Request.ServerVariables("SCRIPT_NAME")) 

If  (Request.QueryString  <>  "")  Then 

MM_edit  Action  =  MM_edit  Action  &  "?"  & 

Server.HTMLEncode(Request.QueryString) 

End  If 

'  boolean  to  abort  record  edit 
MM_abortEdit  =  false 

'  query  string  to  execute 
MM_editQuery  = "" 

%> 

<% 

'  ***  Insert  Record:  set  variables 

If  (CStr(Request("MM_insert"))  =  "formi")  Then 

MMeditConnection  =  MMconnDistanceLeamingSTRING 
MM_editTabIe  =  "Topic_Has_Subsections" 

MM_editRedirectUrl  =  "Form_Subsection_Master.asp" 

MM_fieIdsStr  =  "topicid|vaIue|subsectionid|value" 

MM_columnsStr  =  "topicid|none, none, NULL|subsectionid|none, none, NULL" 

'  create  the  MM_fields  and  MM_columns  arrays 
MM_fieIds  =  SpIit(MM_fieIdsStr,  "I") 

MM_columns  =  Split(MM_columnsStr,  "|") 

'  set  the  form  values 

For  MM_i  =  LBound(MM_fields)  To  UBound(MM_fields)  Step  2 
MM_fields(MM_i+l)  =  CStr(Request.Form(MM_fields(MM_i))) 

Next 

'  append  the  query  string  to  the  redirect  URL 

If  (MMeditRedirectUrl  o  ""  And  Request.QueryString  o  "")  Then 
If  (InStr(I,  MM_editRedirectUrI,  "?",  vbTextCompare)  =  0  And 

Request.QueryString  <> "")  Then 

MM_editRedirectUrI  =  MM_editRedirectUrl  &  "?"  &  Request.QueryString 
Else 

MM_editRedirectUrl  =  MM_editRedirectUrl  &  "&"  &  Request.QueryString 
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End  If 
End  If 

End  If 

%> 

<% 

'  ***  Insert  Record:  construct  a  sql  insert  statement  and  execute  it 

Dim  MMtable  Values 
Dim  MMdbValues 

If  (CStr(Request("MM_insert"))  <>  "")  Then 

'  create  the  sql  insert  statement 
MMjableValues  = 

MM_db  Values  = "" 

For  MM_i  =  LBound(MM_fields)  To  UBound(MM_fields)  Step  2 
MM_formVal  =  MM_fields(MM_i+l) 

MM_typeArray  =  Split(MM_columns(MM_i+l),",'') 

MM_delim  =  MM_typeArray(0) 

If  (MM_deIim  =  "none")  Then  MM_delim  =  "" 

MM_altVal  =  MM_typeArray(l) 

If  (MM_altVal  =  "none")  Then  MM_altVal  =  "" 

MM_emptyVal  =  MM_typeArray(2) 

If  (MM_emptyVal  =  "none")  Then  MM_emptyVal  =  "" 

If  (MM_formVal  =  "")  Then 
MM_formVal  =  MM_emptyVal 
Else 

If  (MM_altVal  <>  "")  Then 
MM_formVal  =  MM_aItVaI 
Elself  (MM_delim  =  ""')  Then  '  escape  quotes 
MM_formVaI  =  "'"  &  RepIace(MM_formVaI, ""',""")  &  ""' 

Else 

MM_formVal  =  MM_delim  +  MM_formVal  +  MM_delim 
End  If 
End  If 

If  (MM_i  <>  LBound(MM_fields))  Then 
MM_tableVaIues  =  MM_table Values  & 

MM_db Values  =  MM_dbValues  &  "," 

End  If 

MM_table Values  =  MM_tableValues  &  MM_columns(MM_i) 

MM_db Values  =  MM_db Values  &  MM_formVal 
Next 

MM_editQuery  =  "insert  into  "  &  MM_editTable  &  "  ("  &  MM_table Values  & 
")  values  ("  &  MM_db Values  &  ")" 
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If  (Not  MM_abortEdit)  Then 
'  execute  the  insert 

Set  MM_editCmd  =  Server.CreateObject("ADODB. Command") 
MMeditCmd.ActiveConnection  =  MMeditConnection 
MMeditCmd.CommandText  =  MMeditQuery 
MM_editCmd.  Execute 
MMeditCmd.ActiveConnection.Close 

If  (MM_editRedirectUrl  <>  "")  Then 
Response.Redirect(MM_editRedirectUrl) 

End  If 
End  If 

End  If 

%> 

<% 

Dim  rsmax _ MMCoIParam 

rs_max _ MMCoIParam  =  "izacharo" 

If  (Session("MM_UserName")  <>  "")  Then 

rs_max _ MMCoIParam  =  Session("MM_UserName") 

End  If 
%> 

<% 

Dim  rs  max 

Dim  rsmaxnumRows 

Set  rs  max  =  Server. CreateObject("ADODB. Recordset") 
rs_max.ActiveConnection  =  MM_conn_DistanceLeaming_STRING 
rs_max. Source  =  "SELECT  subsectionid  FROM  Subsection  WHERE 
subsectionid=(SELECT  MAX( subsectionid)  FROM  Subsection  WHERE  author  =  + 

Replace(rs_max _ MMCoIParam,  """)  +  "')" 

rs_max.CursorType  =  0 
rs_max.CursorLocation  =  2 
rs_max.LockType  =  I 
rs_max.Open() 

rs_max_numRows  =  0 

%> 

<!DOCTYPE  html  PUBLIC  "-//W3C//DTD  XHTML  1.0  Transitional//EN" 
"http://www.w3  .org/TR/xhtml  1/DTD/xhtml  1  -transitional.dtd"> 

<html  xmlns="http://www.w3.org/1999/xhtml"> 

<head> 

<title>Distance  Learning:  Confirm</title> 

<meta  http-equiv="Content-Type"  content="text/html;  charset=iso-8859-l"  /> 
<link  href="DLStylesheet.css"  rel="stylesheet"  type="text/css"  /> 

<style  type="text/css"> 
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<!- 
a:  link  { 

color:  #CC3300; 

} 

aivisited  { 

color:  #CC3399; 

} 

a:hover  { 

color:  #000066; 

} 

a:  active  { 

color:  #339900; 

} 

.  style  1  { 

color:  #FF0000; 
font-weight:  bold; 

} 

— > 

</style></head> 

<body> 

<table  width="95%"  height="214"  border="0"  align="center"  eellpadding="3" 
cellspacing="0"> 

<tr> 

<td  height="109"><table  width="100%"  border="0"  align="left" 
cellpadding="3"  eellspaeing="0"  bgeolor="#DEDEBC"> 

<tr> 

<td  width="88%"  align="eenter"  valign="niiddle" 

bgcolor="#DEDEBC"><img  sre="Images/nps_banner.gif'  width="447"  height="97"  /> 

</td> 

</tr> 

</table></td> 

</tr> 

<tr> 

<td  height="50"><table  width="72%"  border="0"  align="eenter" 
cellpadding="3"  eellspaeing="0"  bordereolor="#F6F6F3"> 

<tr> 

<td  width="14%"  bgeolor="#DEDEBC"><object 

classid="elsid:D27CDB6E-AE6D-llcf-96B8-444553540000" 

codebase="http://download.macromedia.eoni/pub/shoekwave/eabs/flash/swflash.eab#ver 
sion=5, 0,0,0"  width="103"  height="24"> 

<param  nanie="movie"  value="button2.swf'  /> 

<param  name="quality"  value="high"  /> 

<param  nanie="bgcolor"  value="#DEDEBC"  /> 

<embed  src="button2.swf'  quality="high" 

pluginspage="http://www.maeroniedia.coni/shockwave/download/index.cgi?Pl_Prod_Ve 
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rsion=ShockwaveFlash"  type="application/x-shockwave-flash"  width="103"  height="24" 
bgcolor="#DEDEBC"></embed> 

</object></td> 

<td  width="14%"  bgcolor="#DEDEBC"><object 

classid="clsid:D27CDB6E-AE6D-llcf-96B8-444553540000" 

codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#ver 
sion=5, 0,0,0"  name=" Search"  width="100"  height="23"  id="Search"> 

<param  name="movie"  value="buttonl.swf'  /> 

<param  name="quality"  value="high"  /> 

<param  name="bgcolor"  value="#DEDEBC"  /> 

<embed  src="buttonl.swf'  width="100"  height="23"  quality="high" 
pluginspage="http://www.macromedia.coiii/shockwave/download/index.cgi?Pl_Prod_Ve 
rsion=ShockwaveFlash"  type="application/x-shockwave-flash"  bgcolor="#DEDEBC" 
name="  Search"></embed> 

</object></td> 

<td  width="14%"  bgcolor="#DEDEBC"><object 

classid="clsid:D27CDB6E-AE6D-llcf-96B8-444553540000" 

codebase="htq)://download.macromedia.coiii/pub/shockwave/cabs/flash/swflash.cab#ver 
sion=5,0,0,0"  width="100"  height="23"> 

<param  name="movie"  value="button3.swf'  /> 

<param  name="quality"  value="high"  /> 

<param  name="bgcolor"  value="#DEDEBC"  /> 

<embed  src="button3.swf'  quality="high" 

pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?Pl_Prod_Ve 
rsion=ShockwaveFlash"  type="application/x-shockwave-flash"  width="100"  height="23" 
bgcolor="#DEDEBC"></embed> 

</object></td> 

<td  width="14%"  bgcolor="#DEDEBC"><object 

classid="clsid:D27CDB6E-AE6D-llcf-96B8-444553540000" 

codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#ver 
sion=5,0,0,0"  width="100"  height="23"> 

<param  name="movie"  value="button4.swf '  /> 

<param  name="quality"  value="high"  /> 

<param  name="bgcolor"  value="#DEDEBC"  /> 

<embed  src="button4.swf'  quality="high" 

pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?Pl_Prod_Ve 
rsion=ShockwaveFlash"  type="application/x-shockwave-flash"  width="100"  height="23" 
bgcolor="#DEDEBC"></embed> 

</object></td> 

<td  width="14%"  bgcolor="#DEDEBC"><object 

classid="clsid:D27CDB6E-AE6D-llcf-96B8-444553540000" 

codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#ver 
sion=5,0,0,0"  width="103"  height="24"> 

<param  name="movie"  value="button5.swf'  /> 

<param  name="quality"  value="high"  /> 

<param  name="bgcolor"  value="#DEDEBC"  /> 
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<embed  src="button5.swf'  quality="high" 

pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?Pl_Prod_Ve 
rsion=ShockwaveFlash"  type="application/x-shockwave-flash"  width="103"  height="24" 
bgcolor="#DEDEBC"></embed> 

</object></td> 

</tr> 

</table></td> 

</tr> 

<tr> 

<td><hr  />  <h3  align="center">  Confirm  Subsection  Insertion  </h3> 

<hr  />  <form  name="formr'  id="formr'  method="POST" 

action="<%=MM_editAction%>"> 

<table  width="51%"  border="l"  align="  center"  cellpadding="3" 
cellspacing="0"> 

<tr> 

<td  width="80%"><input  name="topicid"  type="hidden"  id="topicid" 
value="<%=  Request.QueryStringC'topicid")  %>"  /> 

<input  name="subsectionid"  type="hidden"  id="subsectionid" 
value="<%=(rs_max.Fields.Item("subsectionid").Value)%>"  /> 

***<span  class="  style  l">Please  Confirm  Your  Subsection 

Insertion</span>  ***</td> 

<td  width="20%"><input  type="submit"  name="Submit" 
value="Confirm"  /></td> 

</tr> 

</table> 


<input  type="hidden"  name="MM_insert"  value="forml"> 
</form> 

<p>&nbsp;</p> 

<p  align="left">&nbsp;</p></td> 

</tr> 

<tr> 

<td>&nbsp;</td> 

</tr> 

</table> 

<p>&nbsp;</p> 

<p>&nbsp;</p> 

</body> 

</html> 

<% 

rs_max.Close() 

Set  rs_max  =  Nothing 

%> 
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50.  Template.asp 


<%@LANGUAGE="VBSCRIPT"  CODEPAGE="1252"%><!DOCTYPE  html 
PUBLIC  "-//W3C//DTD  XHTML  1.0  Transitional//EN" 

"http://www.w3  .org/TR/xhtml  1 /DTD/xhtml  1  -transitional.dtd"> 

<html  xmlns="http://www.w3.org/1999/xhtml"> 

<head> 

<title>Distance  Learning:  Template</title> 

<meta  http-equiv="Content-Type"  content="text/html;  charset=iso-8859-l"  /> 
<link  href="DLStylesheet.css"  rel="stylesheet"  type="text/css"  /> 

<style  type="text/css"> 

<!- 
a:  link  { 

color:  #CC3300; 

} 

a:visited  { 

color:  #CC3399; 

} 

a:hover  { 

color:  #000066; 

} 

a:  active  { 

color:  #339900; 

} 

— > 

</style></head> 

<body> 

<table  width="95%"  height="214"  border="0"  align="center"  cellpadding="3" 
cellspacing="0"> 

<tr> 

<td  height="109"><table  width="100%"  border="0"  align="left" 
cellpadding="3"  cellspacing="0"  bgcolor="#DEDEBC"> 

<tr> 

<td  width="88%"  align="  center"  valign="niiddle" 

bgcolor="#DEDEBC"><img  src="Images/nps_banner.gif'  width="447"  height="97"  /> 

</td> 

</tr> 

</table></td> 

</tr> 

<tr> 

<td  height="50"><table  width="72%"  border="0"  align="center" 
cellpadding="3"  cellspacing="0"  bordercolor="#F6F6F3"> 

<tr> 

<td  width="14%"  bgcolor="#DEDEBC"><object 

classid="clsid:D27CDB6E-AE6D-llcf-96B8-444553540000" 


377 


codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#ver 
sion=5, 0,0,0"  width="103"  height="24"> 

<param  name="movie"  value="button2.swf'  /> 

<param  name="quality"  value="high"  /> 

<param  name="bgcolor"  value="#DEDEBC"  /> 

<embed  src="button2.swf'  quality="high" 

pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?Pl_Prod_Ve 
rsion=ShockwaveFlash"  type="application/x-shockwave-flash"  width="103"  height="24" 
bgcolor="#DEDEBC"></embed> 

</object></td> 

<td  width="14%"  bgcolor="#DEDEBC"><object 

classid="clsid:D27CDB6E-AE6D-llcf-96B8-444553540000" 

codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#ver 
sion=5,0,0,0"  name=" Search"  width="100"  height="23"  id="Search"> 

<param  name="movie"  value="buttonLswf'  /> 

<param  name="quality"  value="high"  /> 

<param  name="bgcolor"  value="#DEDEBC"  /> 

<embed  src="buttonLswf'  width="100"  height="23"  quality="high" 
pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?Pl_Prod_Ve 
rsion=ShockwaveFlash"  type="application/x-shockwave-flash"  bgcolor="#DEDEBC" 
name="  Search"></embed> 

</object></td> 

<td  width="14%"  bgcolor="#DEDEBC"><object 

classid="clsid:D27CDB6E-AE6D-llcf-96B8-444553540000" 

codebase="http://download.macromedia.coin/pub/shockwave/cabs/flash/swflash.cab#ver 
sion=5,0,0,0"  width="100"  height="23"> 

<param  name="movie"  value="button3.swf'  /> 

<param  name="quality"  value="high"  /> 

<param  name="bgcolor"  value="#DEDEBC"  /> 

<embed  src="button3.swf'  quality="high" 

pluginspage="http://www.macromedia.coiii/shockwave/download/index.cgi?Pl_Prod_Ve 
rsion=ShockwaveFlash"  type="application/x-shockwave-flash"  width="100"  height="23" 
bgcolor="#DEDEBC"></embed> 

</object></td> 

<td  width="14%"  bgcolor="#DEDEBC"><object 

classid="clsid:D27CDB6E-AE6D-llcf-96B8-444553540000" 

codebase="http://download.macromedia.coiii/pub/shockwave/cabs/flash/swflash.cab#ver 
sion=5,0,0,0"  width="100"  height="23"> 

<param  name="movie"  value="button4.swf'  /> 

<param  name="quality"  value="high"  /> 

<param  name="bgcolor"  value="#DEDEBC"  /> 

<embed  src="button4.swf'  quality="high" 

pluginspage="http://www.macromedia.coiii/shockwave/download/index.cgi?Pl_Prod_Ve 
rsion=ShockwaveFlash"  type="application/x-shockwave-flash"  width="100"  height="23" 
bgcolor="#DEDEBC"></embed> 

</object></td> 
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<td  width="14%"  bgcolor="#DEDEBC"><object 

classid="clsid:D27CDB6E-AE6D-llcf-96B8-444553540000" 

codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#ver 
sion=5, 0,0,0"  width="103"  height="24"> 

<param  name="movie"  value="button5.swf'  /> 

<param  name="quality"  value="high"  /> 

<param  name="bgcolor"  value="#DEDEBC"  /> 

<embed  src="button5.swf'  quality="high" 

pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?Pl_Prod_Ve 
rsion=ShockwaveFlash"  type="application/x-shockwave-flash"  width="103"  height="24" 
bgcolor="#DEDEBC"></embed> 

</object></td> 

</tr> 

</table></td> 

</tr>  <tr> 

<td><hr  />  <h3  align="center">  Header  goes  here  </h3> 

<hr/> 

<fomi  name="forml"  id="forml"  method="post"  action=""> 

<table  width="95%"  border="l"  cellspacing="0"  cellpadding="3"> 

<tr> 

<td>&nbsp;</td> 

<td>&nbsp;</td> 

</tr> 

<tr> 

<td>&nbsp;</td> 

<td>&nbsp;</td> 

</tr> 

<tr> 

<td>&nbsp  ;</td> 

<td>&nbsp;</td> 

</tr> 

<tr> 

<td>&nbsp;</td> 

<td>&nbsp;</td> 

</tr> 

</table> 

</fomi>  <p  align="left">&nbsp;</p></td> 

</tr> 

<tr> 

<td>&nbsp;  </td> 

</tr> 

</table> 

<p>&nbsp;</p> 

<p>&nbsp;</p> 

</body> 

</html> 
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51.  Test_Form_Update_Subsection.asp 

<%@LANGUAGE=" VBSCRIPT"  CODEPAGE='T252"%> 

<!— #include  file="Connections/conn_DistanceLeaming.asp"  — > 

<% 

'  ***  Restrict  Access  To  Page:  Grant  or  deny  access  to  this  page 
MM_authorizedUsers="admin, professor" 

MM_authFailedURL="  login,  asp" 

MM_grantAccess=false 
If  Session("MM_Usemame")  <>  ""  Then 
If  (false  Or  CStr(Session("MM_UserAuthorization"))="")  Or  _ 

(InStr(l,MM_authorizedUsers,Session("MM_UserAuthorization"))>=l) 

Then 

MM_grantAccess  =  true 
End  If 
End  If 

If  Not  MM_grantAccess  Then 
MM_qsChar  =  "?" 

If  (InStr(l,MM_authFailedURL,"?")  >=  1)  Then  MM  qsChar  =  "&" 
MM_referrer  =  Request.  ServerVariables("URL") 

if  (Len(Request.QueryString())  >  0)  Then  MM_referrer  =  MM_referrer  &  "?"  & 
Request.QueryStringO 

MM_authFailedURL  =  MM_authFailedURL  &  MM_qsChar  &  "accessdenied=" 
&  Server.URLEncode(MM_referrer) 

Response.Redirect(MM_authFailedURL) 

End  If 

%> 

<% 

'  ***  Edit  Operations:  declare  variables 

Dim  MMeditAction 
Dim  MMabortEdit 
Dim  MMeditQuery 
Dim  MM_editCmd 

Dim  MM_editConnection 
Dim  MM_editTable 
Dim  MMeditRedirectUrl 
Dim  MMeditColumn 
Dim  MM_recordId 

Dim  MMfieldsStr 
Dim  MMcolumnsStr 
Dim  MM_fields 
Dim  MM  columns 
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Dim  MMtypeArray 
Dim  MMformVal 
Dim  MMdelim 
Dim  MMaltVal 
Dim  MM_emptyVal 
Dim  MM_i 

MM_editAction  =  CStr(Request.ServerVariables("SCRIPT_NAME")) 

If  (Request.QueryString  <>  "")  Then 

MM_edit  Action  =  MM_edit  Action  &  "?"  & 

Server.HTMLEncode(Request.QueryString) 

End  If 

'  boolean  to  abort  record  edit 
MM_abortEdit  =  false 

'  query  string  to  execute 
MM_editQuery  = "" 

%> 

<% 

'  ***  Update  Record:  set  variables 

If  (CStr(Request("MM_update"))  =  "forml"  And  CStr(Request("MM_recordId")) 
<>  "")  Then 

MMeditConnection  =  MM_conn_DistanceLeaming_STRING 
MM_editTable  =  "Subsection" 

MM_editColumn  =  "subsectionid" 

MM_recordId  =  ""  +  Request.Form("MM_recordId")  +  "" 

MM_editRedirectUrl  =  "Form_Subsection_Master.asp" 

MM_fieldsStr 

"subsectionName|value|description|vaIue|Content|value|keywords|vaIue|author|value" 

MM_columnsStr  = 

"subsectionNamel', none, "|subsectionDescription|', none, "|content|', none, "|keywords|', none,' 
'|author|',none,"" 

'  create  the  MM_fields  and  MM_columns  arrays 
MM_fieIds  =  SpIit(MM_fieIdsStr,  "I") 

MM_columns  =  Split(MM_columnsStr,  "|") 

'  set  the  form  values 

For  MM_i  =  LBound(MM_fields)  To  UBound(MM_fields)  Step  2 
MM_fields(MM_i+l)  =  CStr(Request.Form(MM_fields(MM_i))) 

Next 

'  append  the  query  string  to  the  redirect  URL 
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If  (MM  editRedirectUrl  <>  ""  And  Request.QueryString  <>  "")  Then 
If  (InStr(I,  MM_editRedirectUrl,  vbTextCompare)  =  0  And 

Request.QueryString  <>  "")  Then 

MM_editRedirectUrl  =  MM_editRedireetUrl  &  "?"  &  Request.QueryString 
Else 

MM_editRedirectUrl  =  MM_editRedireetUrl  &  &  Request.QueryString 

End  If 
End  If 

End  If 

%> 

<% 

'  ***  Update  Reeord:  construct  a  sql  update  statement  and  execute  it 

If  (CStr(Request("MM_update"))  <>  ""  And  CStr(Request("MM_recordId"))  <> 
"")  Then 


'  create  the  sql  update  statement 

MM_editQuery  =  "update  "  &  MM_editTable  &  "  set " 

For  MM_i  =  LBound(MM_fields)  To  UBound(MM_fields)  Step  2 
MM_formVaI  =  MM_fields(MM_i+I) 

MM_typeArray  =  Split(MM_columns(MM_i+I),",") 

MM_delim  =  MM_typeArray(0) 

If  (MM_deIim  =  "none")  Then  MM_delim  =  "" 

MM_ahVal  =  MM_typeArray(I) 

If  (MM_aItVaI  =  "none")  Then  MM_aItVaI  =  "" 

MM_emptyVal  =  MM_typeArray(2) 

If  (MM_emptyVaI  =  "none")  Then  MM_emptyVal  =  "" 

If  (MM_formVal  =  "")  Then 
MM_formVaI  =  MM_emptyVaI 
Else 

If  (MM_altVal  <>  "")  Then 
MM_formVal  =  MM_altVal 
Elself  (MM_delim  =  ""')  Then  '  escape  quotes 
MM_formVal  =  "'"  &  Replace(MM_formVal, ""',""")  & 

Else 

MM_formVal  =  MM_delim  +  MM_formVal  +  MM_delim 
End  If 
End  If 

If  (MM_i  <>  LBound(MM_fieIds))  Then 
MM_editQuery  =  MM_editQuery  & 

End  If 

MM_editQuery  =  MM_editQuery  &  MM_columns(MM_i)  &  "  =  "  & 
MM_formVaI 
Next 
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MM_editQuery  =  MM_editQuery  &  "  where  "  &  MM_editColumn  &  "  =  "  & 
MM_recordId 

If  (Not  MM_abortEdit)  Then 
'  exeeute  the  update 

Set  MM_editCmd  =  Server.  CreateObjeet("ADODB. Command") 
MMeditCmd.ActiveConnection  =  MMeditConnection 
MMeditCmd.CommandText  =  MMeditQuery 
MM_editCmd.Execute 
MM_editCmd.AetiveConneetion.Close 

If  (MM_editRedireetUrI  <>  "")  Then 
Response.Redireet(MM_editRedireetUrI) 

End  If 
End  If 

End  If 

%> 

<% 

Dim  rs_subseetion _ MMCoIParam 

rssubsection _ MMCoIParam  =  "I" 

If  (Request.QueryStringC'subseetionid")  <>  "")  Then 

rssubsection _ MMCoIParam  =  Request.QueryString("subsectionid") 

End  If 
%> 

<% 

Dim  rs  subsection 

Dim  rs_subsection_numRows 

Set  rs  subsection  =  Server.CreateObject("ADODB.Recordset") 
rs_subsection.ActiveConnection  =  MM_conn_DistanceLeaming_STRING 
rs  subsection. Source  =  "SELECT  *  FROM  Subsection  WHERE  subsectionid  =  " 

+  RepIace(rs_subsection _ MMCoIParam, """)  +  "" 

rs_subsection.CursorType  =  0 
rs_subsection.CursorLocation  =  2 
rs_subsection.LockType  =  I 
rs_subsection.Open() 

rs_subsection_numRows  =  0 

%> 

<!DOCTYPE  html  PUBLIC  "-//W3C//DTD  XHTML  I.O  TransitionaI//EN" 
"http://www.w3  .org/TR/xhtml  I/DTD/xhtml  I  -transitionaI.dtd"> 

<html  xmIns="http://www.w3.org/I999/xhtmI"> 

<head> 

<titIe>Distance  Learning:  Update  Subsection</titIe> 

<meta  http-equiv="Content-Type"  content="text/htmI;  charset=iso-8859-I"  /> 
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<link  href="DLStylesheet.css"  rel="stylesheet"  type="text/css"  /> 

<style  type="text/css"> 

<!- 
a:  link  { 

color:  #CC3300; 

} 

aivisited  { 

color:  #CC3399; 

} 

a:hover  { 

color:  #000066; 

} 

a:  active  { 

color:  #339900; 

} 

— > 

</style> 

<script  language="JavaScript"  type="text/JavaScript"> 

<!- 

function  MM_findObj(n,  d)  { //v4.01 

var  p,i,x;  if(!d)  d=document;  if((p=n.indexOf("?"))>0&&parent.frames. length) 

{ 

d=parent.ff anies[n.substring(p+ 1 )]  .document;  n=n.substring(0,p); } 
if(!(x=d[n])&&d.all)  x=d.all[n];  for  (i=0;!x&&i<d.forms.length;i++) 
x=d.  forms  [i][n]; 

for(i=0;!x&&d.layers&&i<d.layers.length;i++) 
x=MM_fmdObj  (n,d-  lay  ers  [i]  .document) ; 

if(!x  &&  d.getElementByld)  x=d.getElementById(n);  return  x; 

} 

funetion  MM_validateForm()  { //v4.0 

var  i,p,q,nm, test, num, min, max, errors=",args=MM_validateForm.arguments; 
for  (i=0;  i<(args. length-2);  i+=3)  { test=args[i-i-2];  val=MM_findObj(args[i]); 
if  (val)  {  nm=val.name;  if  ((val=val.value)!="")  { 
if  (test.indexOf('isEmail')!=-l)  { p=val.indexOf('@'); 
if  (p<l  II  p==(val.length-l))  errors+='-  '-l-nm-l-'  must  eontain  an  e-mail 

address.\n'; 

}  else  if  (test!='R')  {  num  =  parseFloat(val); 
if  (isNaN(val))  errors-i-='-  '+nm+'  must  contain  a  number.\n'; 
if  (test.indexOf('inRange')  !=  -1)  {  p=test.indexOf(':'); 
min=test.substring(8,p);  max=test.substring(p+l); 

if  (num<min  ||  max<num)  errors+='-  '-l-nm-l-'  must  contain  a  number 
between  '-i-min-i-'  and  '-i-max-i-'.\n'; 

}  }  }  else  if  (test.charAt(O)  ==  'R')  errors  -l-=  '-  '-l-nm-l-'  is  required.\n';  } 

}  if  (errors)  alert('The  following  error(s)  occurred:\n'-i-errors); 
document. MM_retumValue  =  (errors  ==  "); 
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} 

//-> 

</script> 

</head> 

<body> 

<table  width="95%"  height="214"  border="0"  align="center"  cellpadding="3" 
cellspacing="0"> 

<tr> 

<td  height="109"><table  width="100%"  border="0"  align="left" 
cellpadding="3"  cellspacing="0"  bgcolor="#DEDEBC"> 

<tr> 

<td  width="88%"  align="  center"  valign="middle" 

bgcolor="#DEDEBC"><img  src="Images/nps_banner.gif'  width="447"  height="97"  /> 

</td> 

</tr> 

</table></td> 

</tr> 

<tr> 

<td  height="50"><table  width="72%"  border="0"  align="center" 
cellpadding="3"  cellspacing="0"  bordercolor="#F6F6F3"> 

<tr> 

<td  width="14%"  bgcolor="#DEDEBC"><object 

classid="clsid:D27CDB6E-AE6D-llcf-96B8-444553540000" 

codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#ver 
sion=5, 0,0,0"  width="103"  height="24"> 

<param  name="movie"  value="button2.swf'  /> 

<param  name="quality"  value="high"  /> 

<param  name="bgcolor"  value="#DEDEBC"  /> 

<embed  src="button2.swf'  quality="high" 

pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?Pl_Prod_Ve 
rsion=ShockwaveFlash"  type="application/x-shockwave-flash"  width="103"  height="24" 
bgcolor="#DEDEBC"></embed> 

</object></td> 

<td  width="14%"  bgcolor="#DEDEBC"><object 

classid="clsid:D27CDB6E-AE6D-llcf-96B8-444553540000" 

codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#ver 
sion=5,0,0,0"  name=" Search"  width="100"  height="23"  id="Search"> 

<param  name="movie"  value="buttonl.swf'  /> 

<param  name="quality"  value="high"  /> 

<param  name="bgcolor"  value="#DEDEBC"  /> 

<embed  src="buttonl.swf'  width="100"  height="23"  quality="high" 
pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?Pl_Prod_Ve 
rsion=ShockwaveFlash"  type="application/x-shockwave-flash"  bgcolor="#DEDEBC" 
name="  Search"></embed> 

</object></td> 
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<td  width="14%"  bgcolor="#DEDEBC"><object 

classid="clsid:D27CDB6E-AE6D-llcf-96B8-444553540000" 

codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#ver 
sion=5, 0,0,0"  width="100"  height="23"> 

<param  name="movie"  value="button3.swf'  /> 

<param  name="quality"  value="high"  /> 

<param  name="bgcolor"  value="#DEDEBC"  /> 

<embed  src="button3.swf'  quality="high" 

pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?Pl_Prod_Ve 
rsion=ShockwaveFlash"  type="application/x-shockwave-flash"  width="100"  height="23" 
bgcolor="#DEDEBC"></embed> 

</object></td> 

<td  width="14%"  bgcolor="#DEDEBC"><object 

classid="clsid:D27CDB6E-AE6D-llcf-96B8-444553540000" 

codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#ver 
sion=5,0,0,0"  width="100"  height="23"> 

<param  name="movie"  value="button4.swf '  /> 

<param  name="quality"  value="high"  /> 

<param  name="bgcolor"  value="#DEDEBC"  /> 

<embed  src="button4.swf'  quali1y="high" 

pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?Pl_Prod_Ve 
rsion=ShockwaveFlash"  type="application/x-shockwave-flash"  width="100"  height="23" 
bgcolor="#DEDEBC"></embed> 

</object></td> 

<td  width="14%"  bgcolor="#DEDEBC"><object 

classid="clsid:D27CDB6E-AE6D-llcf-96B8-444553540000" 

codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#ver 
sion=5,0,0,0"  width="103"  height="24"> 

<param  name="movie"  value="button5.swf'  /> 

<param  name="quality"  value="high"  /> 

<param  name="bgcolor"  value="#DEDEBC"  /> 

<embed  src="button5.swf'  quality="high" 

pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?Pl_Prod_Ve 
rsion=ShockwaveFlash"  type="application/x-shockwave-flash"  width="103"  height="24" 
bgcolor="#DEDEBC"></embed> 

</object></td> 

</tr> 

</table></td> 

</tr> 

<tr> 

<td><hr  />  <h3  align="center">  ETpdate  Subsection  Record  &amp;  Content 

</h3> 

<hr/> 

<form  ACTION="<%=MM_editAction%>"  METHOD="POST" 
name-'forml"  id="fomil"> 


386 


border="l"  align="  center"  eellpadding="3 


<table  width="95%" 
cellspacing="0"> 

<tr> 

<td  width="30%">Subseetion  Name  </td> 

<td  width="70%"><input  name="subsectionName"  type="text" 
id="subseetionName" 

value="<%=(rs_subseetion.Fields.Item("subseetionName").Value)%>"  /></td> 

</tr> 

<tr> 

<td>Subsection  Deseription  </td> 

<td><textarea  name="deseription"  eols="60"  rows="5" 
id="description"><%=(rs_subsection.Fields.Item("subsectionDeseription").Value)%></te 
xtarea></td> 

</tr> 

<tr> 

<td>Content</td> 

<td><textarea  name="Content"  eols="60"  rows="15" 

id="Content"><%=(rs_subsection.Fields.Item("eontent").Value)%></textarea></td> 

</tr> 

<tr> 

<td>Keywords</td> 

<td><textarea  name="keywords"  cols="60"  rows="5" 

id="keywords"><%=(rs_subseetion.Fields.Item("keywords").Value)%></textarea></td> 

</tr> 

<tr> 

<td><input  name="author"  type="hidden"  id="author"  value="<%= 
Session("MM_Usemame")  %>"  /> 

<input  name="topicid"  type="hidden"  id="topieid"  value="<%= 
Request.QueryStringC'topicid")  %>"  /></td> 

<td><input  name="Submit"  type="submit" 

onclick="MM_validateForm('subsectionNameV','R', 'deseription', 'Content', ",'R','keyw 
ords',",'R');retum  doeument.MM_retumValue"  value=" Submit"  /></td> 

</tr> 

</table> 

<input  type="hidden"  name="MM_update"  value="forml"> 

<input  type="hidden"  name="MM_recordId"  value="<%= 
rs_subsection.Fields.Item("subsectionid"). Value  %>"> 

</form>  <p  align="left">&nbsp;</p></td> 

</tr> 

<tr> 

<td>&nbsp;  </td> 

</tr> 

</table> 

<p>&nbsp;</p> 

<p>&nbsp;</p> 

</body> 
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</html> 

<% 

rs_subsection.Close() 

Set  rs_subsection  =  Nothing 

%> 


52.  Topic_Request.asp 


<%@LANGUAGE=" VBSCRIPT"  CODEPAGE='T252"%> 

<!— #include  file="Connections/conn_DistanceLeaming.asp"  — > 

<% 

Dim  rs_topic _ MMColParam 

rs_topic _ MMColParam  =  "  1" 

If  (Request.Form("subjectid")  <>  "")  Then 

rs_topic _ MMColParam  =  Request.Form("subjectid") 

End  If 
%> 

<% 

Dim  rs_topic 

Dim  rstopicnumRows 

Set  rs_topic  =  Server.CreateObject("ADODB. Recordset") 

rs_topic.ActiveConnection  =  MM_conn_DistanceLearning_STRING 

rs  topic. Source  =  "SELECT  topicid,  topicName  FROM  Topic  WHERE  subjectid 

=  "  +  Replace(rs_topic _ MMColParam, """)  +  "  ORDER  BY  topicName  ASC" 

rs_topic.CursorType  =  0 
rs_topic.CursorLocation  =  2 
rs_topic.LockType  =  1 
rs_topic.Open() 

rs_topic_numRows  =  0 

%> 

<!DOCTYPE  html  PUBLIC  "-//W3C//DTD  XHTML  1.0  Transitional//EN" 
"http://www.w3  .org/TR/xhtml  1 /DTD/xhtml  1  -transitional.dtd"> 

<html  xmlns="http  ://www. w3  .org/ 1 999/xhtml"> 

<head> 

<title>Distance  Learning:  Topic  Request</title> 

<meta  http-equiv="Content-Type"  content="text/html;  charset=iso-8859-l"  /> 
<link  href="DLStylesheet.css"  rel="stylesheet"  type="text/css"  /> 

<style  type="text/css"> 

<!- 
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.  style  1  {color:  #000099} 

.style2  {color:  #3333FF} 

— > 

</style> 

</head> 

<body> 

<table  width="95%"  height="353"  border="0"  align="center"  cellpadding="3" 
cellspacing="0"> 

<tr> 

<td  height="109"><table  width="100%"  border="0"  align="lefl" 
cellpadding="3"  cellspacing="0"  bgcolor="#DEDEBC"> 

<tr> 

<td  width="88%"  align="  center"  valign="middle" 

bgcolor="#DEDEBC"><img  src="Images/nps_banner.gif'  width="447"  height="97"  /> 

</td> 

</tr> 

</table></td> 

</tr> 

<tr> 

<td  height="46"><table  width="72%"  border="0"  align="center" 
cellpadding="3"  cellspacing="0"  bordercolor="#F6F6F3"> 

<tr> 

<td  width="14%"  bgcolor="#DEDEBC"><object 

classid="clsid:D27CDB6E-AE6D-llcf-96B8-444553540000" 

codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#ver 
sion=5, 0,0,0"  width="103"  height="24"> 

<param  name="movie"  value="button2.swf'  /> 

<param  name="quality"  value="high"  /> 

<param  name="bgcolor"  value="#DEDEBC"  /> 

<embed  src="button2.swf'  quality="high" 

pluginspage="http://www.macromedia.coin/shockwave/download/index.cgi?Pl_Prod_Ve 
rsion=ShockwaveFlash"  type="application/x-shockwave-flash"  width="103"  height="24" 
bgcolor="#DEDEBC"></embed> 

</object></td> 

<td  width="14%"  bgcolor="#DEDEBC"><object 

classid="clsid:D27CDB6E-AE6D-llcf-96B8-444553540000" 

codebase="http://download.macromedia.coin/pub/shockwave/cabs/flash/swflash.cab#ver 
sion=5,0,0,0"  name=" Search"  width="100"  height="23"  id="Search"> 

<param  name="movie"  value="buttonl.swf'  /> 

<param  name="quality"  value="high"  /> 

<param  name="bgcolor"  value="#DEDEBC"  /> 

<embed  src="buttonl.swf'  width="100"  height="23"  quality="high" 
pluginspage="http://www.macromedia.coin/shockwave/download/index.cgi?Pl_Prod_Ve 
rsion=ShockwaveFlash"  type="application/x-shockwave-flash"  bgcolor="#DEDEBC" 
name="Search"></embed> 

</object></td> 
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<td  width="14%"  bgcolor="#DEDEBC"><object 

classid="clsid:D27CDB6E-AE6D-llcf-96B8-444553540000" 

codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#ver 
sion=5, 0,0,0"  width="100"  height="23"> 

<param  name="movie"  value="button3.swf'  /> 

<param  name="quality"  value="high"  /> 

<param  name="bgcolor"  value="#DEDEBC"  /> 

<embed  src="button3.swf'  quality="high" 

pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?Pl_Prod_Ve 
rsion=ShockwaveFlash"  type="application/x-shockwave-flash"  width="100"  height="23" 
bgcolor="#DEDEBC"></embed> 

</object></td> 

<td  width="14%"  bgcolor="#DEDEBC"><object 

classid="clsid:D27CDB6E-AE6D-llcf-96B8-444553540000" 

codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#ver 
sion=5,0,0,0"  width="100"  height="23"> 

<param  name="movie"  value="button4.swf'  /> 

<param  name="quality"  value="high"  /> 

<param  name="bgcolor"  value="#DEDEBC"  /> 

<embed  src="button4.swf'  quality="high" 

pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?Pl_Prod_Ve 
rsion=ShockwaveFlash"  type="application/x-shockwave-flash"  width="100"  height="23" 
bgcolor="#DEDEBC"></embed> 

</object></td> 

<td  width="14%"  bgcolor="#DEDEBC"><object 

classid="clsid:D27CDB6E-AE6D-llcf-96B8-444553540000" 

codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#ver 
sion=5,0,0,0"  width="103"  height="24"> 

<param  name="movie"  value="button5.swf'  /> 

<param  name="quality"  value="high"  /> 

<param  name="bgcolor"  value="#DEDEBC"  /> 

<embed  src="button5.swf'  quality="high" 

pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?Pl_Prod_Ve 
rsion=ShockwaveFlash"  type="application/x-shockwave-flash"  width="103"  height="24" 
bgcolor="#DEDEBC"></embed> 

</object></td> 

</tr> 

</table></td> 

</tr> 

<tr> 

<td  height="145"><hr  />  <h3  align="center">  Topic  Request  </h3> 

<hr  />  </td> 

</tr> 

<tr> 

<td><form  name="frmTopic"  id="frmTopic"  method="post" 
action="Subsection_RequestNPS.asp"> 
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<div  align="center"> 

Select  Topic: 

<select  name="topicid"  id="topicid"> 

<% 

While  (NOT  rsJopic.EOF) 

%> 

<option 

value="<%=(rs_topic.Fields.Item("topicid").Value)%>"><%=(rs_topic.Fields.Item("topi 
cName" ) .  Value)%></option> 

<% 

rs_topic.MoveNext() 

Wend 

If  (rs  topic.CursorType  >  0)  Then 
rs_topic.  MoveF  irst 
Else 

rs_topic .  Requery 
End  If 

%> 

</seIect> 

<input  type=" submit"  name="Submit"  value=" Search"  /> 

</div> 

</form></td> 

</tr> 

</table> 

</body> 

</htmI> 

<% 

rs_topic.Close() 

Set  rs_topic  =  Nothing 

%> 


391 


53.  User_Input_Form.asp 


<%@LANGUAGE=" VBSCRIPT"  CODEPAGE='T252"%> 

<!— #include  file="Connections/conn_DistanceLeaming.asp"  — > 

<% 

'  ***  Restrict  Access  To  Page:  Grant  or  deny  access  to  this  page 
MM_authorizedUsers="  admin" 

MM_authFailedURL="  login,  asp" 

MM_grantAccess=false 
If  Session("MM_Usemame")  <>  ""  Then 
If  (false  Or  CStr(Session("MM_UserAuthorization"))="")  Or  _ 

(InStr(l,MM_authorizedUsers,Session("MM_UserAuthorization"))>=l) 

Then 

MM_grantAccess  =  true 
End  If 
End  If 

If  Not  MM_grantAccess  Then 
MM_qsChar  =  "?" 

If  (InStr(l,MM_authFailedURL,"?")  >=  1)  Then  MM  qsChar  =  "&" 
MM_referrer  =  Request.  ServerVariables("URL") 

if  (Len(Request.QueryString())  >  0)  Then  MM_referrer  =  MM_referrer  &  "?"  & 
Request.QueryStringO 

MM_authFailedURL  =  MM_authFailedURL  &  MM_qsChar  &  "accessdenied=" 
&  Server.URLEncode(MM_referrer) 

Response.Redirect(MM_authFailedURL) 

End  If 

%> 

<% 

'  ***  Edit  Operations:  declare  variables 

Dim  MMeditAction 
Dim  MMabortEdit 
Dim  MMeditQuery 
Dim  MM_editCmd 

Dim  MM_editConnection 
Dim  MM_editTable 
Dim  MMeditRedirectUrl 
Dim  MMeditColumn 
Dim  MM_recordId 

Dim  MMfieldsStr 
Dim  MMcolumnsStr 
Dim  MM_fields 
Dim  MM  columns 
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Dim  MMtypeArray 
Dim  MMformVal 
Dim  MMdelim 
Dim  MMaltVal 
Dim  MM_emptyVal 
Dim  MM_i 

MM_editAction  =  CStr(Request.ServerVariables("SCRIPT_NAME")) 

If  (Request.QueryString  <>  "")  Then 

MM_edit  Action  =  MM_edit  Action  &  "?"  & 

Server.HTMLEncode(Request.QueryString) 

End  If 

'  boolean  to  abort  record  edit 
MM_abortEdit  =  false 

'  query  string  to  execute 
MM_editQuery  = "" 

%> 

<% 

'  ***  Redirect  if  username  exists 
MM_flag="MM_insert" 

If  (CStr(Request(MM_flag))  <>  "")  Then 
MM_dupKeyRedirect="registration_failed.asp" 
MM_rsKeyConnection=MM_conn_DistanceLeaming_STRING 
MM_dupKeyUsemameValue  =  CStr(Request.Form("userName")) 
MM_dupKeySQL="SELECT  userName  FROM  User  WHERE  userName='"  & 
MM_dupKeyUsernameVaIue  & 

MM_adodbRecordset="ADODB. Recordset" 

set  MM_rsKey=Server.CreateObject(MM_adodbRecordset) 

MM_rsKey.ActiveConnection=MM_rsKeyConnection 

MM_rsKey.  Source=MM_dupKeySQL 

MM_rsKey .  CursorT  ype=0 

MM_rsKey.CursorLocation=2 

MM_rsKey.LockType=3 

MM_rsKey .  Open 

If  Not  MM  rsKey.EOF  Or  Not  MM  rsKey.BOF  Then 
'  the  username  was  found  -  can  not  add  the  requested  username 
MM_qsChar  =  "?" 

If  (InStr(I,MM_dupKeyRedirect,"?")  >=  I)  Then  MM_qsChar  =  "&" 
MM_dupKeyRedirect  =  MM_dupKeyRedirect  &  MM_qsChar  & 
"requsemame="  &  MM_dupKeyUsemameVaIue 

Response.Redirect(MM_dupKeyRedirect) 

End  If 

MM_rsKey.Close 
End  If 
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%> 

<% 

'  ***  Insert  Record:  set  variables 

If  (CStr(Request("MM_insert"))  =  "frmUser")  Then 

MMeditConnection  =  MM_conn_DistanceLeaming_STRING 
MM_editTable  =  "User" 

MM_editRedirectUrl  =  "Form_Master_User.asp" 

MM_fieldsStr 

"firstname|value|lastname|value|offPhone|value|offRoom|value|email|value|userName|val 

ue|password|value|userGroup|value" 

MM_columnsStr  = 

"firstNamel', none, "|lastName|', none, "|officephone|', none, "|officeRoom|', none, "|email|', non 
e,"|userName|', none, "|password|', none, "|userGroup|', none,"" 

'  create  the  MM_fields  and  MM_columns  arrays 
MM_fields  =  Split(MM_fieldsStr,  "I") 

MM_columns  =  Split(MM_columnsStr,  "|") 

'  set  the  form  values 

For  MM_i  =  LBound(MM_fields)  To  UBound(MM_fields)  Step  2 
MM_fields(MM_i+l)  =  CStr(Request.Form(MM_fields(MM_i))) 

Next 

'  append  the  query  string  to  the  redirect  URL 

If  (MM_editRedirectUrl  o  ""  And  Request.QueryString  o  "")  Then 
If  (InStr(l,  MM_editRedirectUrl,  vbTextCompare)  =  0  And 

Request.QueryString  <> "")  Then 

MM_editRedirectUrl  =  MM_editRedirectUrl  &  "?"  &  Request.QueryString 
Else 

MM_editRedirectUrl  =  MM_editRedirectUrl  &  "&"  &  Request.QueryString 
End  If 
End  If 

End  If 

%> 

<% 

'  ***  Insert  Record:  construct  a  sql  insert  statement  and  execute  it 

Dim  MMtable  Values 
Dim  MMdb  Values 

If  (CStr(Request("MM_insert"))  <>  "")  Then 
'  create  the  sql  insert  statement 
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MMjableValues  = 

MM_db  Values  = "" 

For  MM_i  =  LBound(MM_fields)  To  UBound(MM_fields)  Step  2 
MM_formVal  =  MM_fields(MM_i+l) 

MM_typeArray  =  Split(MM_columns(MM_i+l),",'') 

MM_delim  =  MM_typeArray(0) 

If  (MM_delim  =  "none")  Then  MM_delim  =  "" 

MM_altVal  =  MM_typeArray(l) 

If  (MM_altVal  =  "none")  Then  MM_aItVaI  =  "" 

MM_emptyVal  =  MM_typeArray(2) 

If  (MM_emptyVaI  =  "none")  Then  MM_emptyVal  =  "" 

If  (MM  formVal  =  "")  Then 
MM_formVaI  =  MM_emptyVaI 
Else 

If  (MM_altVal  <>  "")  Then 
MM_formVal  =  MM_altVal 
Elself  (MM_delim  =  ""')  Then  '  escape  quotes 
MM_formVal  =  ""'  &  Replace(MM_formVal, ""',""")  &  ""' 

Else 

MM_formVal  =  MM_delini  +  MM_fomiVal  +  MM_delim 
End  If 
End  If 

If  (MM_i  <>  LBound(MM_fields))  Then 
MM_tableVaIues  =  MM_table Values  & 

MM_db Values  =  MM_dbValues  &  "," 

End  If 

MM_table Values  =  MM_tableValues  &  MM_columns(MM_i) 

MM_db Values  =  MM_db Values  &  MM_formVal 
Next 

MM_editQuery  =  "insert  into  "  &  MM_editTable  &  "  ("  &  MM_table Values  & 
")  values  ("  &  MM_db Values  &  ")" 

If  (Not  MM_abortEdit)  Then 
'  execute  the  insert 

Set  MM_editCmd  =  Server.  CreateObject("ADODB. Command") 
MMeditCmd.ActiveConnection  =  MMeditConnection 
MMeditCmd.CommandText  =  MMeditQuery 
MM_editCmd.Execute 
MM_editCmd.ActiveConnection.Close 

If  (MM_editRedirectUrl  <>  "")  Then 
Response.Redirect(MM_editRedirectUrl) 

End  If 
End  If 

End  If 
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%> 

<% 

Dim  rswelcome _ MMColParam 

rswelcome _ MMColParam  =  "  1 " 

If  (Session("MM_Usemame")  <>  "")  Then 

rs_welcome _ MMColParam  =  Session("MM_Usemame") 

End  If 
%> 

<% 

Dim  rs_welcome 

Dim  rswelcomenumRows 

Set  rsweleome  =  Server.CreateObjeet("ADODB.Reeordset") 
rswelcome.ActiveConnection  =  MMeonnDistaneeLeamingSTRING 
rs  welcome. Source  =  "SELECT  firstName  FROM  User  WHERE  userName  = 

+  Replace(rs_welcome _ MMColParam, """)  + 

rs_welcome.CursorType  =  0 
rs_welcome.CursorLocation  =  2 
rswelcome.LockType  =  1 
rs_welcome .  Open() 

rswelcomenumRows  =  0 

%> 

<!DOCTYPE  html  PUBLIC  "-//W3C//DTD  XHTML  I.O  TransitionaI//EN" 
"http://www.w3  .org/TR/xhtml  I /DTD/xhtml  I  -transitional.dtd"> 

<html  xmlns="http  ://www. w3  .org/ 1 999/xhtml"> 

<head> 

<title>Distance  Learning:  Regigistration  Form</title> 

<meta  http-equiv="Content-Type"  content="text/html;  charset=iso-8859-I"  /> 
<link  href="DLStyIesheet.css"  rel="stylesheet"  type="text/css"  /> 

<style  type="text/css"> 

<!- 
a:  link  { 

color:  #CC3300; 

} 

a:visited  { 

color:  #CC3399; 

} 

a:hover  { 

color:  #000066; 

} 

a:  active  { 

color:  #339900; 

} 

. style  1  {color:  #FF0000} 

.style2  (color:  #3300CC} 
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— > 

</style> 

<script  language="JavaScript"  type="text/JavaScript"> 

<!- 

function  MM_findObj(n,  d)  {  //v4.01 

var  p,i,x;  if(!d)  d=docunient;  if((p=n.indexOf("?"))>0&&parent.franies. length) 

{ 

d=parent.ff anies[n.substring(p+ 1 )]  .document;  n=n.substring(0,p); } 
if(!(x=d[n])&&d.all)  x=d.all[n];  for  (i=0;!x&&i<d.forms.length;i++) 
x=d.  forms  [i][n]; 

for(i=0 ; !  x&&d.  lay  ers&&i<d.  layers .  length;  i++) 
x=MM_fmdObj  (n,d-  lay  ers  [i]  .document) ; 

if(!x  &&  d.getElementByld)  x=d.getElementById(n);  return  x; 

} 

function  MM_validateForm()  { //v4.0 

var  i,p,q,nm, test, num, min, max, errors=",args=MM_validateForm.arguments; 
for  (i=0;  i<(args. length-2);  i+=3)  { test=args[i-i-2];  val=MM_findObj(args[i]); 
if  (val)  {  nm=val.name;  if  ((val=val.value)!="")  { 
if  (test.indexOf('isEmail')!=-l)  { p=val.indexOf('@'); 
if  (p<l  II  p==(val.length-l))  errors+='-  '-l-nm-l-'  must  contain  an  e-mail 

address.\n'; 

}  else  if  (test!='R')  {  num  =  parseFloat(val); 
if  (isNaN(val))  errors+='-  '-l-nm-l-'  must  contain  a  number.\n'; 
if  (test.indexOf('inRange')  !=  -1)  {  p=test.indexOf(':'); 
min=test .  substring(  8  ,p) ;  max=test.  substring(p-l- 1 ) ; 

if  (num<min  ||  max<num)  errors-i-='-  '-i-nm-i-'  must  contain  a  number 
between  '-l-min-l-'  and  '-l-max-l-'.\n'; 

}  }  }  else  if  (test.charAt(O)  ==  'R')  errors  -i-=  '-  '-i-nm-i-'  is  required.\n';  } 

}  if  (errors)  alert('The  following  error(s)  occurred:\n'-l-errors); 
document. MM_retumValue  =  (errors  ==  "); 

} 

//-> 

</script> 

</head> 

<body> 

<table  width="95%"  height="214"  border="0"  align="center"  cellpadding="3" 
cellspacing="0"> 

<tr> 

<td  height="109"><table  width="100%"  border="0"  align="left" 
cellpadding="3"  cellspacing="0"  bgcolor="#DEDEBC"> 

<tr> 

<td  width="88%"  align="  center"  valign="middle" 

bgcolor="#DEDEBC"><img  src="Images/nps_banner.gif'  width="447"  height="97"  /> 

</td> 

</tr> 
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</table></td> 

</tr> 

<tr> 

<td  height="50"><table  width="72%"  border="0"  align="center" 
cellpadding="3"  cellspacing="0"  bordercolor="#F6F6F3"> 

<tr> 

<td  width="14%"  bgcolor="#DEDEBC"><object 

classid="clsid:D27CDB6E-AE6D-llcf-96B8-444553540000" 

codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#ver 
sion=5, 0,0,0"  width="103"  height="24"> 

<param  name="movie"  value="button2.swf'  /> 

<param  name="quality"  value="high"  /> 

<param  name="bgcolor"  value="#DEDEBC"  /> 

<embed  src="button2.swf'  quality="high" 

pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?Pl_Prod_Ve 
rsion=ShockwaveFlash"  type="application/x-shockwave-flash"  width="103"  height="24" 
bgcolor="#DEDEBC"></embed> 

</object></td> 

<td  width="14%"  bgcolor="#DEDEBC"><object 

classid="clsid:D27CDB6E-AE6D-llcf-96B8-444553540000" 

codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#ver 
sion=5,0,0,0"  name=" Search"  width="100"  height="23"  id="Search"> 

<param  name="movie"  value="buttonLswf'  /> 

<param  name="quality"  value="high"  /> 

<param  name="bgcolor"  value="#DEDEBC"  /> 

<embed  src="buttonLswf'  width="100"  height="23"  quality="high" 
pluginspage="http://www.macromedia.coiii/shockwave/download/index.cgi?Pl_Prod_Ve 
rsion=ShockwaveFlash"  type="application/x-shockwave-flash"  bgcolor="#DEDEBC" 
name="  Search"></embed> 

</object></td> 

<td  width="14%"  bgcolor="#DEDEBC"><object 

classid="clsid:D27CDB6E-AE6D-llcf-96B8-444553540000" 

codebase="http://download.macromedia.coin/pub/shockwave/cabs/flash/swflash.cab#ver 
sion=5,0,0,0"  width="100"  height="23"> 

<param  name="movie"  value="button3.swf'  /> 

<param  name="quality"  value="high"  /> 

<param  name="bgcolor"  value="#DEDEBC"  /> 

<embed  src="button3.swf'  quality="high" 

pluginspage="http://www.macromedia.coiii/shockwave/download/index.cgi?Pl_Prod_Ve 
rsion=ShockwaveFlash"  type="application/x-shockwave-flash"  width="100"  height="23" 
bgcolor="#DEDEBC"></embed> 

</object></td> 

<td  width="14%"  bgcolor="#DEDEBC"><object 

classid="clsid:D27CDB6E-AE6D-llcf-96B8-444553540000" 

codebase="http://download.macromedia.coin/pub/shockwave/cabs/flash/swflash.cab#ver 
sion=5,0,0,0"  width="100"  height="23"> 
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<param  name="movie"  value="button4.swf'  /> 

<param  name="quality"  value="high"  /> 

<param  name="bgcolor"  value="#DEDEBC"  /> 

<embed  src="button4.swf'  quality="high" 

pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?Pl_Prod_Ve 
rsion=ShockwaveFlash"  type="application/x-shockwave-flash"  width="100"  height="23" 
bgcolor="#DEDEBC"></embed> 

</object></td> 

<td  width="14%"  bgcolor="#DEDEBC"><object 

classid="clsid:D27CDB6E-AE6D-llcf-96B8-444553540000" 

codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#ver 
sion=5, 0,0,0"  width="103"  height="24"> 

<param  name="movie"  value="button5.swf'  /> 

<param  name="quality"  value="high"  /> 

<param  name="bgcolor"  value="#DEDEBC"  /> 

<embed  src="button5.swf'  quality="high" 

pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?Pl_Prod_Ve 
rsion=ShockwaveFlash"  type="application/x-shockwave-flash"  width="103"  height="24" 
bgcolor="#DEDEBC"></embed> 

</object></td> 

</tr> 

</table></td> 

</tr> 

<tr> 

<td><hr  />  <h3  align="  center"  class="stylel"><span 

class="style2">Welcome</span>&nbsp;<%=(rs_welcome.Fields.Item("firstName").Valu 
e)%>&nbsp;  !</h3> 

<p  align="center"  class="stylel">***Be  careful  who  you  register  in  the  DLR 
Database***  </p> 

<h3  align="center">Registration  Form  </h3> 

<hr  />  <form  ACTION="<%=MM_editAction%>"  METHOD="POST" 
name="frmUser"  id="frmUser"> 

<table  width="95%"  border="l"  align="  center"  cellpadding="3" 
cellspacing="0"> 

<tr> 

<td  width="3  l%">First  Name  </td> 

<td  width="69%"><input  name="firstname"  type="text"  id="firstname" 

/></td> 

</tr> 

<tr> 

<td>Last  Name  </td> 

<td><input  name="lastname"  type="text"  id="lastname"  /></td> 

</tr> 

<tr> 

<td>Office  Phone</td> 

<td><input  name="offPhone"  type="text"  id="offPhone"  /></td> 
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</tr> 

<tr> 

<td>Office  Room  </td> 

<td><input  name="offRoom"  type="text"  id="offRoom"  /></td> 

</tr> 

<tr> 

<td>Email  Address  </td> 

<td><input  name="emair'  type="text"  id="email"  size="40"  /></td> 

</tr> 

<tr> 

<td>User  Name  </td> 

<td><input  name="userName"  type="text"  id="userName"  /></td> 

</tr> 

<tr> 

<td>Password</td> 

<td><input  name="password"  type="password"  id="password"  /></td> 

</tr> 

<tr> 

<td>User  Group  </td> 

<td><input  name="userGroup"  type="text"  id="userGroup"  /></td> 

</tr> 

<tr> 

<td>&nbsp  ;</td> 

<td><input  name="Submit"  type="submit" 

onclick="MM_validateForm('firstnameV','R','lastnameV','R', 'email',", 'RisEmair/userNam 
e',",'R','userGroup',",'R', 'password', ",'R');retum  doeument.MM_retumValue" 

value="  Submit"  /></td> 

</tr> 

</table> 

<input  type="hidden"  name="MM_insert"  value="frmUser"> 

</form>  <p  align="left">&nbsp;</p></td> 

</tr> 

</table> 

<p>&nbsp;</p> 

<p>&nbsp;</p> 

<^ody> 

</html> 

<% 

rs_weleome.Close() 

Set  rs_weleome  =  Nothing 

%> 
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